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Foreword 



MP/M jjT.m. ^ s a multi-user operating system for any 
microcomputer based on an 8-bit Zilog Z80® or Intel 8080 or 8085 
microprocessor. Typically, an MP/M II system resides in 
approximately 27k. 16k of the operating system must reside in 
common memory. 

The version of MP/M II that Digital Research ships cannot be 
directly booted on any specific hardware configuration. However, 
all the hardware-dependent code is isolated in specific subroutines 
that can be modified by the user. 

This document describes the procedures required to implement 
MP/M II for a custom hardware environment. At minimum, the custom 
hardware environment must include an 8080, 8085, or Z-80 processor, 
32K bytes of random access memory (RAM) , a system console, and a 
real-time clock. This manual assumes the reader is familiar with 
the following Digital Research publications: 

• MP/M II User's Guide 

• MP/M II Programmer's Guide 

It is also assumed that the reader has already implemented a 
CP/M 2 Basic Input Output System (BIOS) , preferrably on the target 
MP/M II machine. 
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Section 1 
MP/M II Alteration Procedure 



The MP/M II operating system is designed so that the user can 
alter a specific set of subroutines that define the hardware 
operating environment. By modifying these subroutines, the user can 
produce a diskette that operates with any IBM-3740 format compatible 
diskette subsystem and other peripheral devices. 

Although the standard MP/M II is shipped on single-density 
floppy disks, field-alteration features allow the user to adapt MP/M 
II to a wide variety of disk subsystems, including single drive 
minidisks and high-capacity "hard disk" systems. 

To achieve device independence, MP/M II has isolated all 
hardware-dependent code into an XIOS module. The user can rewrite 
the distributed version of the XIOS to customize the interface 
between the remaining MP/M II modules and the user's own hardware 
system. The user can also rewrite the distributed version of the 
LDRBIOS, which loads the MP/M II system from disk. 

There are actually two versions of the XIOS: the RESXIOS for 
non-banked systems, and the BNKXIOS for banked memory systems. To 
avoid repeating both names for each reference, the term XIOS refers 
to both versions. 



1.1 Preparation for MP/M II Alteration 

To simplify the alteration process, this document assumes that 
a CP/M 2 BIOS has already been implemented on the target MP/M II 
machine. You must implement both the BIOS as well as the XIOS 
because the MP/M II loader uses a CP/M 2 BIOS to load the MP/M II 
system. Once loaded, MP/M II uses the XIOS and not the BIOS. The 
CP/M 2 BIOS used by the MP/M II loader is called the LDRBIOS. 

Another good reason for implementing CP/M 2 on the target MP/M 
machine is that debugging your XIOS is simpler when you can run SID 
or DDT under a CP/M 2 system. 
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1.2 Customizing the MPMLDR 

To customize the MPMLDR, you must integrate a LDRBIOS for your 
hardware configuration into the MPMLDR.COM file supplied on the 
distribution disk. The required LDRBIOS can be simply a version of 
your CP/M 2 BIOS, altered as described below and renamed to LDRBIOS. 

The customized LDRBIOS must have an ORG of 1700H, perform 
console output functions, and be able to read data from a single 
disk drive. The first call MPMLDR makes to LDRBIOS is SELDSK: 
select disk. If your system has devices that require 
initialization, place initialization code or perhaps a call to the 
LDRBIOS cold start at the beginning of the SELDSK handler. 

The LDRBIOS need only perform the operations described above. 
Other functions can be deleted to conserve space. There is only one 
restriction on memory space for LDRBIOS: it cannot extend above the 
base of the MPM.SYS which it is loading. (GENSYS Lists MP/M II' s 
base address in its load map.) However, if you plan to boot MP/M II 
from floppy disks, you will encounter a LDRBIOS upper address limit 
of 1A00H in order to place the MPMLDR.COM file on two system tracks . 

Test LDRBIOS completely to ensure that it properly performs 
console character output and disk reads. Be especially careful that 
no disk write operations occur accidently during read operations, 
and check that the proper track and sectors are addressed on all 
reads. 

Use the following steps to integrate a custom LDRBIOS into the 
MPMLDR.COM: 



1. Obtain access to a CP/M system and prepare a LDRBIOS. HEX file. 

2. Read the MPMLDR.COM file into memory using either DDT or SID 

A>DDT MPMLDR.COM 

DDT VERS 2.0 
NEXT PC 
1780 0100 

3. Using the input command (I), specify that the LDRBI0S.HEX file- 
is to be read in and then read (R) in the file. This operation 
overlays the LDRBIOS portion of the MP/M loader. 

-~ I LDRBIOS. HEX 
-R 

NEXT PC 
1A00 0000 
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4. Exit the debugger, returning to the CCP by executing a jump to 
location zero. 

-GO 

5. Write the updated memory image onto a disk file. Use the CP/M 
SAVE command to write the updated memory image onto a disk 
file. In the example below, the X in front of the filename 
simply designates an experimental version, and preserves the 
original. 

A>SAVE 26 XMPMLDR.COM 

6. Test XMPMLDR.COM and then rename it to MPMLDR.COM. 

1.3 Customizing the XIOS 

As you are tailoring MP/M II for your computer system, your new 
XIOS will require software development and testing. Two sample 
XIOS's are listed in the Appendixes, and can be used as models for 
the customized package. 

The XIOS entry points, including both basic and extended, are 
described in Sections 2 and 3. These sections, along with the 
appendixes, give you the information you need to write your XIOS. 
Your initial implementation of an XIOS should use polled I/O without 
any interrupts. This initial system can run without a clock 
interrupt. Implement interrupts only after your XIOS is fully 
developed and tested. 

Follow the procedure below to prepare a BNKXIOS.SPR or 
RESXIOS.SPR file from your customized XIOS: 

1. Assemble your BNKXIOS.ASM or RESXIOS.ASM with RMAC or any other 
assembler that can generate a file of type REL in Microsoft's 
relocatable object file format. 

A>RMAC BNKXIOS 

2. Link the BNKXIOS. REL or RESXIOS.REL file using the Digital 
Research LINK-80 to produce the BNKXIOS.SPR or RESXIOS.SPR 
file. 

A>LINK BNKXIOS [OS] 
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1.4 Debugging an XIOS 

You can debug an XIOS or a resident system process with DDT or 
SID running under CP/M. The debugging technique is outlined in the 
following steps: 

1. Determine the amount of memory available to MP/M II when the 
debugger and CP/M are resident. Do this by loading the 
debugger and then listing the jump instruction at location 
0005H. This jump is to the base of the debugger. 

A>DDT 

DDT VERS 2.0 

-L5 

0005 JMP C800 

2. Using GENSYS running under CP/M, generate' an MPM.SYS file that 
specifies the top of memory determined by the previous step, 
allowing at least 256 bytes for a patch area. 

• • • ■ 

Top page of operating system (xx) ? C6 

Also while executing GENSYS, specify a breakpoint restart 
number different from the one used by the CP/M debugger you 
plan to use. The suggested MP/M II restart is #6; however, 
any restart from #1 to #6, can usually be used. The CP/M 
debuggers normally use restart #7. 

• • • 

Breakpoint RST (xx) ? 6 

• • ■ • 

Note: If you are also deuugging a resident system process, be 
sure to select it for inclusion in MPM.SYS during GENSYS 
execution. 

3. Using CP/M, load the MPMLDR.COM file into memory. 



A>DDT MPMLDR.COM 

DDT VERS 2.0 
NEXT PC 
1A00 0100 
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4. Place the characters "$B" into locations 005DH and 005EH of the 
default FCB based at 005CH. This operation can be done with 
the I command: 

-I$B 

The "$B" causes the MPMLDR to break after loading the MPM.SYS 
file. You can specify the breakpoint restart to be executed by 
the MPMLDR by adding one additional character to the string in 
the fourth position of the default FCB. 

-I$B6 

In the example above, a restart #6 is to be executed by the 
MPMLDR when loading of the MPM.SYS file is completed. If no 
restart number is supplied, the default restart is #7. 
Remember, the restart number at the location 5FH is the CP/M 
debugger restart number, not the MP/M debugger restart. 

5. Execute the MPMLDR.COM program by entering a G command: 

-G 

6. After the G Command, the MP/M II loader loads the MP/M II 
operating system into memory and displays a memory map. You 
may obtain a hard copy of your load map during the GENSYS 
operation by entering a TP before executing GENSYS. 

7. If you are debugging an XIOS, note the address of the 
BNKXIOS.SPR or RESXIOS.SPR memory segment. You must also note 
the address of SYSTEM.DAT. If you are debugging a resident 
system process, note its address as well. The debugger lists 
actual addresses at the Console. If your hard copy listing of 
the XIOS or RSP starts at zero, you must add the base address 
listed in the GENSYS load map to each address on the listing to 
make the listing reflect actual addresses. Or you can assemble 
the code again with an additional ORG statement specifying the 
base listed in the load map, although the object code generated 
by this assembly is unusable. 

8. Using the X command, determine the MP/M II beginning execution 
address. The address is the first location past the current 
program counter. 



-X 

* P - 09F2 



In the example shown above, MP/M II execution starts at address 
09F3H, which is the first instruction after the restart at 
09F2H. 
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9. Begin execution of MP/M II using the G command, specifying the 
start address and any breakpoints you need in your code. The 
actual memory address can be determined by entering an H 
command to add the code segment base address given in the 
memory map to the relative displacement address in your XIOS or 
resident system process listing. 

The following example shows how to set a breakpoint in an XIOS 
at the list subroutine entry point given in the memory map: 



XIOSJMP TBL C300H 0100H 



-G9F3,C30F 

09F3H is the beginning MP/M II execution address and C30FH is 
the XIOS jump vector address of the list subroutine. 

10. At this point, you have MP/M II running with CP/M and the CP/M 
debugger also in memory. Because interrupts are left enabled 
during operation of the CP/M debugger, ensure that interrupt- 
driven code does not execute through a breakpoint. 

Because the CP/M debugger operates with interrupts left 
enabled, it is a somewhat difficult task to debug an interrupt- 
driven console handler. Approach this problem by leaving 
console #0 in a polled mode while debugging the other consoles 
in an interrupt-dr iven mode. Once this is done, very little, 
if any, debugging is required to adapt the interrupt-driven 
code from another console to console #0. It is further 
recommended that you maintain a debug version of your XIOS that 
has polled I/O for console #0. Otherwise, it is not possible 
to run the CP/M debugger underneath the MP/M II system because 
the CP/M debugger cannot get any console input, as all of it is 
sent to the MP/M interrupt-driven console #0 handler. 

1.5 Directly Booting MP/M II 

In systems where MP/M II is to be booted directly at cold start 
rather than loaded and run as a transient program under CP/M, the 
customized MPMLDR.COM file and cold start loader can be placed on 
the first two tracks of a eight-inch floppy disk. If a CP/M 
SYSGEN.COM program is available, use it to write the MPMLDR.COM file 
on the first two tracks. If a SYSGEN.COM program is not available, 
or if SYSGEN.COM does not work because a different media such as a 
five-inch floppy disk or hard disk is to be used, the user must 
write two programs: a simple memory loader, called GETSYS, which 
brings the MP/M loader into memory, and a program called PUTSYS, 
which places the MPMLDR on the first two tracks of a disk. If you 
have implemented a CP/M 2 BIOS, you have probably already prepared 
GETSYS and PUTSYS. 
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You can use either the SID or DDT debugger instead of writing a 
GETSYS program. This method is shown in the following example, 
which also uses SYSGEN in place of PUTSYS. Sample skeletal GETSYS 
and PUTSYS programs are given in Section 1.5.3. 

To load and run the MP/M system automatically, you must also 
supply a cold start loader that loads the MP/M loader into memory 
from the first two tracks of the diskette. Modify the CP/M 2 cold 
start loader in the following manner: change the load address to 
0100H and the execution address to 0100H. 

The following bootstrap techniques are specific to the Intel 
MDS-800, which has a boot ROM that loads the first track into 
location 3000H. However, the steps shown can be applied in a 
general sense to any custom hardware environment. 

1.5.1 Preparing an MP/M II Boot Using SYSGEN 

If a SYSGEN program is available, use the following steps to 
prepare a diskette that cold starts MP/M II: 

1. Prepare the MPMLDR.COM file by integrating your custom LDRBIOS 
as described in Section 1.2. Test the MPMLDR.COM and verify 
that it operates properly. 

2. Execute either DDT or SID. 

A>DDT 

DDT VERS 2.0 

3. Using the input command (I), specify that the MPMLDR.HEX file 
is to be read in and then read (R) in the file with an offset 
of 880H bytes. 



-IMPMLDR.HEX 
-R880 

NEXT PC 
2480 0100 



4. Using the I command, specify that the BOOT. HEX file is to be 
read in and then read in the file with an offset that loads the 
boot into memory at 900H. You can use the H command to 
calculate the offset. 



-H900 3000 
3900 D900 

-IBOOT.HEX 
-RD900 

NEXT PC 
2480 0000 
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5. Return to the CP/M console command processor (CCP) by jumping 
to location zero. 

-GO 

6. Use the SYSGEN program to write the new cold start loader onto 
the first two tracks of the diskette. 



A>SYSGEN 

SYSGEN VER 2.0 

SOURCE DRIVE NAME (OR RETURN TO SKIP) <cr> 
DESTINATION DRIVE NAME (OR RETURN TO REBOOT) B 
DESTINATION ON B, THEN TYPE RETURN<cr> 
FUNCTION COMPLETE 



1.5-2 Custom Generation of an MP/M II Boot 

If a SYSGEN program is not available, then use the following 
steps to prepare a diskette that cold starts MP/M II: 

1. Write a GETSYS program that reads the custom MPMLDR.COM file 
into location 3380H and the cold start loader (or boot program) 
into location 3300H. Code GETSYS so that it starts at location 
100H (base of the TPA) . 

Or, as in the previous example, you can use either SID or DDT 
to perform this function instead of writing a GETSYS program, 

2. Run the GETSYS program using an initialized MP/M II diskette to 
see if GETSYS loads the MP/M loader starting at 3380H (the 
operating system actually starts 128 bytes later at 3400H) . 

3. Write a PUTSYS program that writes memory starting at 3380H 
back onto the first two tracks of the diskette. The PUTSYS 
program should be located at 200H. 

4. Test the PUTSYS program using a blank, uninitialized diskette 
by writing a portion of memory to the first two tracks; clear 
memory and read it back. Test PUTSYS completely, because you 
will use this program to alter the MP/M II system diskette. 

5. Use PUTSYS to place the MP/M II loader and cold start loader 
onto the first two tracks of a blank diskette. 
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1.5 Directly Booting MP/M II 



1.5.3 Sample GETSYS and PUTSYS Programs 

The following programs provide a framework for the GETSYS and 
PUTSYS program. You must insert WRITESEC subroutines to write the 
specific sectors. 



GETSYS PROGRAM - READ TRACKS AND 1 TO MEMORY AT 3380H 

USE 
(SCRATCH REGISTER) 
TRACK COUNT (0, 1) 
SECTOR COUNT (1,2,..., 26) 
(SCRATCH REGISTER PAIR) 
LOAD ADDRESS 
SET TO STACK ADDRESS 



SET STACK POINTER TO SCRATCH AREA 

SET BASE LOAD ADDRESS 

START WITH TRACK 

READ NEXT TRACK (INITIALLY 0) 

READ STARTING WITH SECTOR 1 

READ NEXT SECTOR 

USER-SUPPLIED SUBROUTINE 

MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 

HL = HL + 128 

SECTOR = SECTOR + 1 

CHECK FOR END OF TRACK 

CARRY GENERATED IF SECTOR < 27 



; GE 


TSYS P 


ROGRAM - 


REGISTER 






A 






B 






C 






DE 






HL 






SP 




START : 


LXI 


SP,3380H 




LXI 


H, 3380H 




MVI 


B, 


RDTRK: 








MVI 


c,i 


RDSEC: 








CALL 


READSEC 




LXI 


D,128 




DAD 


D 




INR 


C 




MOV 


A,C 




CPI 


27 




JC 


RDSEC 



ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK 
INR B 

MOV A,B ;TEST FOR LAST TRACK 

CPI 2 
JC RDTRK /CARRY GENERATED IF TRACK < 2 

ARRIVE HERE AT END OF LOAD, HALT FOR NOW 
HLT 

USER-SUPPLIED SUBROUTINE TO READ THE DISK 
READSEC: 

ENTER WITH TRACK NUMBER IN REGISTER B, 

SECTOR NUMBER IN REGISTER C, AND 

ADDRESS TO FILL IN HL 



PUSH 
PUSH 



;SAVE B AND C REGISTERS 
;SAVE HL REGISTERS 



perform disk read at this point, branch to 
label START if an error occurs 



POP 
POP 
RET 
END 



H 
B 

START 



RECOVER HL 

RECOVER B AND C REGISTERS 

BACK TO MAIN PROGRAM 
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PUTSYS PROGRAM - WRITE TRACKS AND 1 FROM MEMORY AT 3380H 

REGISTER USE 

(SCRATCH REGISTER) 
TRACK COUNT (0, 1) 
SECTOR COUNT (1,2,..., 2.6) 
(SCRATCH REGISTER PAIR) 
LOAD ADDRESS 
SET TO STACK ADDRESS 



SET STACK POINTER TO SCRATCH AREA 

SET BASE LOAD ADDRESS 

START WITH TRACK 

WRITE NEXT TRACK (INITIALLY 0) 

WRITE STARTING WITH SECTOR 1 

WRITE NEXT SECTOR 

; USER-SUPPLIED SUBROUTINE 

MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 

HL = HL + 128 

SECTOR = SECTOR +1 

CHECK FOR END OF TRACK 





A 
B 






C 






DE 






HL 






SP 




START : 


LXI 


SP,3380H 




LXI 


H, 3380H 




MVI 


B, 


WRTRK : 








MVI 


c,i 


WRSEC: 








CALL 


WRITESEC 




LXI 


D,128 




DAD 


D 




INR 


C 




MOV 


A,C 




CPI 


27 




JC 


WRSEC 



; CARRY GENERATED IF SECTOR < 27 



; ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK 
INR B 

MOV A,B ;TEST FOR LAST TRACK 

CPI 2 
JC WRTRK ; CARRY GENERATED IF TRACK < 2 

; ARRIVE HERE AT END OF LOAD, HALT FOR NOW 
HLT 

USER-SUPPLIED SUBROUTINE TO WRITE THE DISK 
WRITESEC: 

ENTER WITH TRACK NUMBER IN REGISTER B, 

SECTOR NUMBER IN REGISTER C, AND 

ADDRESS TO FILL IN HL 



PUSH 
PUSH 



;SAVE B AND C REGISTERS 
;SAVE HL REGISTERS 



perform disk write at this point, branch to 
label START if an error occurs 



POP 


H 


POP 


B 


RET 





RECOVER HL 

RECOVER B AND C REGISTERS 

BACK TO MAIN PROGRAM 



END 



START 
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1.6 Loading MPM.SYS Without the MPMLDR 

The MPM.SYS file is a fully-relocated absolute file that can be 
moved directly into memory and then executed without the use of the 
MPMLDR. The format of the MPM.SYS file is in Table 1-1, below. 





Table 1-1. MPM.SYS File Format 


Record 


Contents 


1 
2 
3-n 


First 128 bytes of the SYSDAT page 

Second 128 bytes of the SYSDAT page 

MP/M operating system in reverse order, 
top down. 



The actual base of the SYSDAT page in memory is specified in 
byte 000 of the SYSDAT page. The rest of MP/M II operating system 
is to be located directly below the SYSDAT page. In Table 1-1, n 
represents the number of records. Bytes 120-121 of the SYSDAT page 
contain the value of n. The execution address of MP/M is specifed 
by the page address given in byte Oil of the SYSDAT page. 

MPMLDR could load the MPM.SYS file into memory and then move it 
to its destination specified in the SYSDAT page (byte 000) . Or the 
user could write a separate custom program to produce a directly 
loadable memory image from the MPM.SYS file. 



1.7 Digital Research Copyright and Trademark 



Read your MP/M II Licensing Agreement; 
responsibilities when copying the MP/M 
copyright notice: 



it specifies your legal 
II system. Place the 



Copyright 



1981 Digital Research 



on the label of each copy you make of your customized MP/M II 
diskette. Digital Research also requests that you place your MP/M 
II serial number on the label of any copies you make. Remember also 
that MP/M II is a trademark of Digital Research, and the first time 
it appears on a disk label or in a document, it should be followed 
by a trademark symbol, as shown below: 



MP/M II 



TM 
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1.8 Disk Organization 

This, section describes MP/M II sector allocation for a system 
in which the MPMLDR resides on the first two tracks of a single 
density diskette. The first sector (see Table 1-2) contains an 
optional software boot section. Disk controllers are often set up 
to bring track 0, sector 1 into memory at a specific location, often 
location 0000H. The program in this sector, called BOOT, is 
responsible for bringing the remaining sectors into memory starting 
at location 0100H. If your controller does not have a built-in 
sector load, you can ignore the program in track 0, sector 1, and 
begin the load from track sector 2 to location 0100H. 

As an example, the Intel MDS-800 hardware cold start loader 
brings track 0, sector 1 into absolute address 3000H. When this 
sector is loaded, control transfers to location 3000H, where the 
bootstrap operation commences by loading the remainder of track 0, 
and all of track 1 into memory, starting at 0100H. Remember that 
this bootstrap loader is of little use in a non-MDS environment, but 
it is useful to examine it because you will have to duplicate some 
of its actions in your own cold start loader. 
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1.8 Disk Organization 





Table 1-2. MP/M 


II Sample Disk Org 


anization 


Track# 


Sector# 


Page# 


Memory Address 


MP/M Module name 


00 


01 




(boot address) 


Cold Start Loader 


00 


02 


00 


010 OH 


MPMLDR 


ii 


03 


ii 


0180H 


ii 


H 


04 


01 


0200H 


ii 


ii 


05 


ii 


0280H 


H 


ii 


06 


02 


0300H 


ii 


ii 


07 


ii 


0380H 


ii 


ii 


08 


03 


0400H 


ii 


ii 


09 


ii 


0480H 


ii 


ii 


10 


04 


50 OH 


ii 


ii 


11 


ii 


0580H 


n 


H 


12 


05 


0600H 


ii 


ii 


13 


ii 


0680H 


ii 


H 


14 


06 


0700H 


H 


ii 


15 


ii 


0780H 


H 


ii 


16 


07 


0800H 


ii 


ii 


17 


ii 


0880H 


H 


ii 


18 


08 


0900H 


ii 


H 


19 


ii 


0980H 


ii 


ii 


20 


09 


0A00H 


H 


•i 


21 


ii 


0A80H 


ii 


H 


22 


10 


0B00H 


H 


ii 


23 


ii 


0B80H 


H 


H 


24 


11 


0C00H 


ii 


00 


25 


ii 


0C80H 


MPMLDR 


00 


26 


12 


0D00H 


LDRBDOS 


01 


01 


H 


0D80H 


ii 


II 


02 


13 


0E00H 


ii 


II 


03 


ii 


0E80H 


ii 


II 


04 


14 


0F00H 


ii 


II 


05 


ii 


0F80H 


•i 


II 


06 


15 


1000H 


ii 


II 


07 


it 


1080H 


ii 


II 


08 


16 


1100H 


ii 


II 


09 


n 


1180H 


ii 


II 


10 


17 


1200H 


ii 


II 


11 


ii 


1280H 


ii 


II 


12 


18 


1300H 


ii 


II 


13 


ii 


1380H 


ii 


II 


14 


19 


1400H 


ii 


II 


15 


ii 


1480H 


ii 


II 


16 


20 


1500H 


ii 


II 


17 


it 


1580H 


ii 


II 


18 


21 


1600H 


ii 


01 


19 


ii 


1680H 


LDRBDOS 


01 


20 


22 


1700H 


LDRBIOS 


II 


21 


ii 


1780H 


ii 


•1 


22 


23 


1800H 


ii 


II 


23 


ii 


1880H 


ii 


II 


24 


24 


1900H 


ii 


II 


25 


ii 


1980H 


ii 


01 


26 


25 


1A00H 


LDRBIOS 
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Section 2 
MP/M II BIOS 



2.1 MP/M II BIOS Overview 

The MP/M II BDOS and XDOS access peripheral devices as 
"logical" devices within the BIOS and XIOS. To customize MP/M II 
for a specific hardware environment, the system implementor must 
prepare the BIOS and XIOS subroutines upon which the BDOS and XDOS 
depend. This section describes how the logical portions of MP/M II 
expect to interact with the BIOS; Section 3 describes the same for 
the XIOS. 

The BDOS and XDOS call BIOS subroutines through a "jump vector" 
located at the base of the BIOS as shown below and in Appendixes D 
and E. The jump vector is a sequence of 26 jump instructions that 
send progra-m control to the individual BIOS subroutines. All 
subroutines must be represented in the jump vector during MP/M II 
system regeneration. However, certain subroutines may be "empty", 
that is, they may contain only a single RET instruction. 

The BIOS jump vector must take the form shown below. The 
individual jump addresses for each entry point are listed to the 
left. Note that the XIOS entry points immediately follow the last 
BIOS entry point. 

COMMONBASE, TERMINATE PROCESS 

WARM BOOT, TERMINATE PROCESS 

CHECK FOR CONSOLE CHAR READY 

READ CONSOLE CHARACTER IN 

WRITE CONSOLE CHARACTER OUT 

WRITE LIST CHARACTER OUT 

not used by MP/M II 

not used by MP/M II 

MOVE TO TRACK 00 

SELECT DISK DRIVE 

SET TRACK NUMBER 

SET SECTOR NUMBER 

SET DMA ADDRESS 

READ SELECTED SECTOR 

WRITE SELECTED SECTOR 

not used by MP/M II 

SECTOR TRANSLATE SUBROUTINE 

Each jump address corresponds to a particular subroutine that 
performs a specific function, as outlined in Section 2.3. Three 
major functions are performed by calls to the jump table: process 
termination from COMMONBASE and WBOOT; simple character I/O from 
CONST, CONIN, CONOUT, and LIST; and disk I/O from HOME, SELDSK, 
SETTRK, SETSEC, SETDMA, READ, WRITE, and SECTRAN. 



BIOS+00H 


JMP 


COMMONBASE 


BIOS+03H 


JMP 


WBOOT 


BIOS+06H 


JMP 


CONST 


BIOS+09H 


JMP 


CONIN 


BIOS+0CH 


JMP 


CONOUT 


BIOS+0FH 


JMP 


LIST 


BIOS+12H 


JMP 


PUNCH 


BIOS+15H 


JMP 


READER 


BIOS+18H 


JMP 


HOME 


BIOS+1BH 


JMP 


SELDSK 


BIOS+1EH 


JMP 


SETTRK 


BIOS+21H 


JMP 


SETSEC 


BIOS+24H 


JMP 


SETDMA 


BIOS+27H 


JMP 


READ 


BIOS+2AH 


JMP 


WRITE 


BIOS+2DH 


JMP 


LISTST 


BIOS+30H 


JMP 


SECTRAN 
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All simple character I/O operations are assumed to be performed 
in ASCII, upper and lower case, with high-order (parity) bit set to 
zero. The BDOS depends on only the CONST, CONIN, and CONOUT 
subroutines for simple character I/O. An ASCII ?Z (1AH) it 
interpreted as an end-of-file condition for an input device. 

2.2 BIOS Device Characteristics and Entry Points 

The BIOS generally supports three types of devices: consoles, 
list devices and disks. The characteristics of each device are 
described below. 

Consoles are the principal interactive devices that communicate 
with operators, and are accessed through CONST, CONIN, and CONOUT* 
Typically, consoles are devices such as CRTs or teletypes. MP/M II 
supports up to 16 console or character I/O devices. 

List Devices, if they exist on your system, are usually hard- 
copy devices, such as printers or teletypes. MP/M II supports up to 
16 list devices. 

Disks are accessed through a sequence of calls on the various 
disk I/O subroutines. These subroutines set up the disk number to 
access, the track and sector on a particular disk, and the direct 
memory access (DMA) address involved in the I/O operation. Aftet 1 
all these parameters have been set up, a call is made to the READ oir 
WRITE function to perform the actual I/O operation. Note that there 
is often a single call to SELDSK to select a disk drive, followed by 
a number of read or write operations to the selected disk before 
selecting another drive for subsequent operations. Similarly, there 
may be a single call to set the DMA address, followed by several 
calls which read or write from the selected DMA address before the 
DMA address is changed. The track and sector subroutines are always 
called before the READ or WRITE operations are performed. 

Note that the READ and WRITE routines should perform several 
retries (10 is standard) before reporting an error condition to the 
BDOS. If the error condition is returned to the BDOS, it reports 
the error to the user. The HOME subroutine may or may not actually 
perform the track 00 seek, depending upon your controller 
characteristics; the important point is that track 00 has been 
selected for the next operation, and is often treated in exactly th£ 
same manner as SETTRK with a parameter of 00. 

Table 2-1 outlines the exact responsibilities of each 
subroutine entered through the BIOS jump table. 
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2.2 BIOS Device Characteristics 



Table 2-1. BIOS Subroutine Summary 



Subroutine 



Description 



COMMONBASE 



WBOOT 



CONST 



CONIN 



The COMMONBASE entry point establishes the 
base address of the portion of the XIOS 
that must reside in common memory. The 
COMMONBASE entry point also contains a jump 
vector that enables the XIOS to access user 
and system memory bank switching 
subroutines, the MP/M II dispatcher, the 
XDOS and BDOS, the SYSDAT page, and 



COLDSTART. 
COMMONBASE 
program, 
accessed by 
Section 2.4. 



The effect of a call to 

is to terminate the calling 

Other external procedures 

COMMONBASE are described in 



The WBOOT subroutine performs an XDOS 
terminate process call, terminating the 
calling process. The subroutine must be 
re-entrant and this entry point must be 
above the COMMONBASE label. 

The CONST subroutine obtains the status of 
the console device specified by register D 
and returns OFFH in register A if a 
character is ready to read, or 00H in 
register A if no console characters are 
ready. This subroutine must be re-entrant 
and this entry point must be above the 
COMMONBASE label. 

The CONIN subroutine reads the next 
character from the console device specified 
by register D into register A, and sets the 
parity bit (high-order bit) to zero. If no 
console character is ready, CONIN waits 
until a character is typed before 
returning. This subroutine must be re- 
entrant and this entry point must be above 
the COMMONBASE label. 
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2.2 BIOS Device Characteristics 



Table 2-1. (continued) 



Subroutine 



Description 



CONOUT 



LIST 



PUNCH 



READER 



HOME 



The CONOUT subroutine sends the character 
from register C to the console output 
device specified by register D. The 
character is in ASCII, with high-order 
parity bit set to zero. You may want to 
include a delay on a line feed or carriage 
return if your console device requires some 
time interval at the end of the line (such 
as a TI Silent 700 terminal) . You can, if 
you wish, filter out control characters 
that cause your console device to react in 
a strange way. For example, a Tz causes 
the Lear-Seigler terminal to clear the 
screen, and could be filtered out by 
CONOUT. This subroutine must be re-entrant 
and this entry point must be above the 
COMMONBASE label. 

The LIST subroutine sends the character 
from register C to the list output device 
specified by register D. The character is 
in ASCII with zero parity. This subroutine 
must be re-entrant and this entry point 
must be above the COMMONBASE label. 

The punch device is not implemented under 
MP/M II. The transfer vector position is 
preserved to maintain CP/M compatibility. 
Note that MP/M II supports up to 16 
character I/O devices, any of which can be 
a reader/punch. 

The reader device is not implemented under 
MP/M II. See the note above for PUNCH. 

The HOME subroutine returns the disk head 
of the currently-selected disk to the track 
00 position. If your controller allows 
access to the track flag from the drive, 
step the head until the track flag is 
detected. If your controller does not 
support this feature, you can translate the 
HOME call into a call on SETTRK with a 
parameter of 0. 
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2.2 BIOS Device Characteristics 



Table 2-1. (continued) 



Subroutine 



Description 



SELDSK 



The SELDSK subroutine selects the disk 
drive given by register C for further 
operations, where register C contains for 
drive A, 1 for drive B, and so up to 15 for 
drive P. On each disk select, SELDSK must 
return in HL the base address of a 16-byte 
area, called the Disk Parameter Header, 
described in Section 2.3. For standard 
floppy disk drives, the contents of the 
header and associated tables does not 
change, and thus the program segment 
included in the sample XIOS performs this 
operation automatically. If there is an 
attempt to select a non-existent drive, 
SELDSK returns HL=0000H as an error 
indicator . 

On entry to SELDSK, it is possible to 
determine whether it is the first time the 
specified disk has been selected. Register 
E, bit (least significant bit) is a zero 
if the drive has not been previously 
selected. This information is of interest 
in systems that read configuration 
information from the disk to set up. a 
dynamic disk definition table. 

Although SELDSK must return the header 
address on each call, it is advisable to 
postpone the actual physical disk select 
operation until an I/O function (read or 
write) is actually performed. This is 
because disk selects often occur without 
ultimately performing any disk I/O, and 
many controllers unload the head of the 
current disk before selecting the new 
drive. This unloading can cause an 
excessive amount of noise and disk wear. 

The first SELDSK subroutine call that MP/M 
II makes is only for getting the DIRBUF 
address and need not perform any actual 
I/O. 
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2.2 BIOS Device Characteristics 



Table 2-1. (continued) 



Subroutine 



Description 



SETTRK 



SETSEC 



SETDMA 



For the SETTRK subroutine, register BC 
contains the track number for subsequent 
disk accesses on the currently selected 
drive. You can choose to seek the selected 
track at this time, or delay the seek until 
the next read or write actually occurs. 
Register BC can take on values in the range 
0-76 corresponding to valid track numbers 
for standard floppy disk drives, and 0- 
65535 for non-standard disk subsystems. 

For the SETSEC subroutine, register BC 
contains the translated sector number for 
subsequent disk accesses on the currently 
selected drive (see SECTRAN, below) . You 
can choose to send this information to the 
controller at this point, or instead delay 
sector selection until a read or write 
operation occurs. Register BC can take on 
values in the range 1-26 corresponding to 
valid sector numbers for standard floppy 
disk drives, and 0-65535 for non-standard 
disk subsystems. 

For the SETDMA subroutine, register BC 
contains the DMA (disk memory access) 
address for subsequent read or write 
operations. For example, if B = 00H and C 
= 80H when SETDMA is called, then all 
subsequent read operations read their data 
into 80H through OFFH, and all subsequent 
write operations get their data from 80H 
through OFFH, until the next call to SETDMA 
occurs. The initial DMA address is assumed 
to be 80H (relative to the base of the 
memory segment from which the call was 
made) . Note that the controller need not 
actually support direct memory access. If, 
for example, all data is received and sent 
through I/O ports, the XIOS you construct 
can use the 128 byte area starting at the 
selected DMA address for the memory buffer 
during subsequent read or write operations. 

A special case of the SETDMA subroutine 
occurs when the passed parameter in 
register BC contains a OFFFFH. This 
parameter indicates that the blocking 
buffer, if it exists, must be flushed. 
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2.2 BIOS Device Characteristics 



Table 2-1. (continued) 



Subroutine 



Description 



READ 



Thus, a call to the SETDMA subroutine is 
interpreted as a flush buffer call when a 
parameter of OFFFFH is passed. The BDOS 
function to flush buffers is translated to 
this form of a SETDMA subroutine call. If 
the flush buffer operation performed as a 
result of the OFFFFH parameter is 
successful a simple return should be 
executed. However, if a disk error occurs 
the current return address should be popped 
from the stack and one of the following 
error codes should be returned in the 
register A: 



non-recoverable error 
condition occurred 
disk read/only 



Assuming the drive has been selected, the 
track has been set, the sector has been 
set, and the DMA address has been 
specified, the READ subroutine attempts to 
read one sector based upon these 
parameters, and returns the following error 
codes in register A: 



no errors occurred 
non-recoverable error 
condition occurred 



If the value in register A is 0, then MP/M 
II assumes that the disk operation was 
completed properly. If an error occurs, 
however, the XIOS should attempt at least 
10 retries to see if the error is 
recoverable. When an error is reported, 
the BDOS prints the message "BDOS ERR ON x: 
BAD SECTOR". Then, depending on the error 
mode of the calling process, the calling 
process is terminated or returned an error 
code . 

An additional parameter containing the 
absolute record number for the disk read is 
now passed by MP/M II on entry to the READ 
subroutine. The parameter is three bytes 
in length, with the high-order byte in 
register B and the low-order two bytes in 
register DE . This parameter may be useful 
in blocking/deblocking algorithms. 
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2.2 BIOS Device Characteristics 



Table 2-1. (continued) 



Subroutine 



Description 



WRITE 



The BNKXIOS of MP/M II allows portions of 
the XIOS to reside in bank-switched memory 
(non-common) . This reduces the common 
memory requirements. The XIOS code for all 
the disk operations including READ and 
WRITE can reside in non-common memory with 
one exception: the code that actually 
performs the transfer of data into the DMA 
address must reside in common memory. Two 
additional entry points within the XIOS, 
named SWTUSER and SWTSYS , enable switching 
between the user's memory bank and the 
system bank containing the BNKXIOS. 
SWTUSER and SWTSYS are described in Section 
2.4. 

If you perform deblocking in your READ and 
WRITE code, you must choose whether to 
place your deblocking buffer in common 
memory and then perform a single move into 
the user's DMA, or to place your deblocking 
buffer in non-common memory. If you choose 
the latter, you must then perform an extra 
move to first move the sector into common 
memory and then another move into the 
user's DMA. Blocking and deblocking are 
discussed in Section 2.5. 

The WRITE subroutine writes the data from the 
currently selected DMA address to the currently 
selected drive, track, and sector. The data 
should be marked as "non deleted data" to 
maintain compatibility with other CP/M and MP/M 
systems. WRITE returns the following error 
codes in register A, as shown below: 



no errors occurred 

non-recoverable error condition 

occurred 

disk read/only 



If the value in register A is 0, then MP/M II 
assumes that the disk operation completed 
properly. If an error occurs, however, the 
XIOS should attempt at least 10 retries to see 
if the error is recoverable. When an error is 
reported, the BDOS prints the message "BDOS ERR 
ON x: BAD SECTOR". Then, depending on the 
error mode of the calling process, the calling 
process is terminated or returned an error 
code. 
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2.2 BIOS Device Characteristics 



Table 2-1. (continued) 



Subroutine 



Description 



LISTST 



SECTRAN 



On entry to the WRITE subroutine a 
parameter is passed in the C register which 
is intended for use by blocking/deblocking 
algorithms. This parameter is described in 
Section 2.5 on blocking/deblocking. 

An additional parameter containing the 
absolute record number for the disk write 
is now passed by MP/M II on entry to the 
WRITE subroutine. The parameter is three 
bytes in length, with the high-order byte 
in register B and the low-order two bytes 
in .register DE. This parameter can be 
useful in blocking/deblocking algoritms. 

See the previous section on disk READ for a 
discussion of placing disk WRITE code in 
bank-switched memory and deblocking in your 
WRITE code. 

The LISTST subroutine returns the ready 
status of the list device specified by 
register D. The value 00 is returned in A 
if the list device is not ready to accept a 
character, and OFFH if a character can be 
sent to the printer. Note that a 00 value 
always suffices. LISTST must be re- 
entrant. This entry point is maintained 
solely for compatibility with CP/M and can 
generally be omitted from the MP/M II XIOS 
as none of the standard utilities use this 
entry point. 

The SECTRAN subroutine performs logical 
sector to physical sector translation and 
can improve the overall response of MP/M 
II. Standard MP/M II systems are shipped 
with a "skew factor" of 6, where six 
physical sectors are skipped between each 
logical read operation. This skew factor 
allows enough time between sectors for most 
programs to load their buffers without 
missing the next sector. 
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2.2 BIOS Device Characteristics 



Table 2-1. (continued) 



Subroutine 



Description 



For computer systems that use fast 
processors, memory and disk subsystems, you 
can change the skew factor to improve 
overall response. Note, however, that you 
should maintain a single-density IBM- 
compatible version of MP/M II for 
information transfer into and out of your 
computer system, using a skew factor of 6. 
In general, SECTRAN receives a logical 
sector number in BC and a translate table 
address in DE . SECTRAN uses the sector 
number as an index into the translate 
table, and returns the resulting physical 
sector number in HL. For standard systems, 
the tables and indexing code are provided 
in the XIOS and need not be changed. 



2-3 BIOS Disk Definition Tables 

This section presents the organization and construction of 
tables within the BIOS that define the characteristics of a 
particular disk system used with MP/M II. These tables can be 
either hand-coded or automatically generated using the DISKDEF 
utility provided with MP/M II. The elements of these tables are 
presented below. 



2.3.1 Disk Parameter Table Format 

In general, each disk drive has an associated (16-byte) Disk 
Parameter Header which both contains information about the disk 
drive and provides a scratchpad area for certain BDOS operations. 
The format of the Disk Parameter Header for each drive is shown 
below. 







Disk 


XLT 


0000 


0000 


16b 


16b 


16b 



Parameter Header 
0000 DIRBUF DPB CSV ALV 
16b 16b 16b 16b 16b 



Each element is a word (16-bit) value. The meaning of each Disk 
Parameter Header (DPH) element is given in Table 2-2. 
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2.3 BIOS Disk Definition Tables 



Table 2-2. Disk Parameter Header Elements 



Element 



Description 



XLT 



0000 



DIRBUF 



DPB 



CSV 



ALV 



Offset of the logical to physical translation vector, 
if used for this particular drive, or the value 0000H 
if no sector translation takes place (i.e, the 
physical and logical sector numbers are the same) . 
Disk drives with identical sector skew factors share 
the same translate tables. 

Scratchpad values for use within the BDOS (initial 
value is unimportant) . 

Offset of a 128 byte scratchpad area for directory 
operations within BDOS. All DPHs address the same 
scratchpad area. The same DIRBUF is used by all 
drives . 

Offset of a disk parameter block for this drive. 
Drives with identical disk characteristics address the 
same disk parameter block. 

Offset of a scratchpad area used for software check for 
changed disks. This offset is different for each DPH. 

Offset of a scratchpad area used by the BDOS to keep 
disk storage allocation information. This offset is 
different for each DPH. 



Given n disk drives, the DPHs are arranged in a table whose first- 
row of 16 bytes corresponds to drive 0, with the last row 
corresponding to drive n-1. The table thus appears as: 



DPBASE 

00 XLT 00 0000 0000 

01 XLT 01 0000 0000 



0000 DIRBUF DBP 00 CSV 00 ALV 00 
0000 DIRBUF DBP 01 CSV 01 ALV 01 



n-1 XLTn-1 0000 



0000 



0000 DIRBUF DBPn-1 CSVn-1 ALVn-1 



where the label DPBASE defines the offset of the DPH table relative 
to the beginning of the operating system. 

A responsibility of the SELDSK subroutine, defined in the 
previous section, is to return the offset of the DPH from the 
beginning of the operating system for the selected drive. The 
following sequence of operations returns the table offset, with a 
0000H returned if the selected drive does not exist. 
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NDISKS EQU 4 /NUMBER OF DISK DRIVES 

SELDSK: 

/SELECT DISK N GIVEN BY C 

LXI H,0000H /READY FOR ERR 

MOV A , C 

CPI NDISKS ;N BEYOND MAX DISKS? 

RNC /RETURN IF SO 

;0 <= N < NDISKS 

MOV L,C 

DAD H /READY FOR * 16 

DAD H 

DAD H 

DAD H 

LXI D,DPBASE 

DAD D /DPBASE + N * 16 

RET 

The translation vectors (XLT 00 through XLTn-1) are located 
elsewhere in the BIOS, and simply correspond one-for-one with the 
logical sector numbers zero through the sector count-1. The Disk 
Parameter Block (DPB) for each drive is more complex. A particular 
DPB, which is addressed by one or more DPHs , takes the general form: 

SPT BSH BLM EXM DSM DRM ALO AL1 CKS OFF 

16b 8b 8b 8b 16b 16b 8b 8b 16b 16b 

where each is a byte or word value, as shown by the "8b" or "16b" 
indicator below the field. The fields are defined in Table 2-3. 
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2.3 BIOS Disk Definition Tables 



Table 2-3. Disk Parameter Block Fields 



Field 


Definition 


SPT 


is the total number of sectors per track. 


BSH 


is the data allocation block shift factor, 
determined by the data block allocation size. 


BLM 


is the block mask which is also determined by the 
data block allocation size. 


EXM 


is the extent mask, determined by the data block 
allocation size and the number of disk blocks. 


DSM 


determines the total storage capacity of the disk 
drive . 


DRM 


determines the total number of directory entries 
which can be stored on this drive. 


AL0,AL1 determine reserved directory blocks. 


CKS 


is the size of the directory check vector, a CKS of 
8000H marks the drive as permanent with no 
directory records checked. 


OFF 


is the number of reserved tracks at the beginning 
of the (logical) disk. 

■ ■ ■ "■ ■ ■ I,, . i 



Although these table values are produced automatically by DISKDEF, 
it is worthwhile reviewing the derivation of each field so that the 
values may be cross-checked when necessary. The values of BSH and 
BLM determine (implicitly) the data allocation size BLS, which is 
not an entry in the disk parameter block. Given that you have 
selected a value for BLS, the values of BSH and BLM are shown in 
Table 2-4 below, where all values are in decimal. 



Table 2-4. BSH and BLM Values for Selected BLS 



BLS 


BSH 


BLM 


1,024 


3 


7 


2,048 


4 


15 


4,096 


5 


31 


8,192 


6 


63 


16,384 


7 


127 



The value of EXM depends upon both the BLS and whether the DSM value 
is less than 256 or greater than 255, as shown in the following 
table . 
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Table 2-5. Maximum EXM Values 



BLS 



DSM < 256 



DSM > 255 



1,024 
2,048 
4,096 
8,192 
16,384 




1 
3 
7 
15 



N/A 

1 
3 
7 



The value of DSM is the maximum data block number supported by 
this particular drive, measured in BLS units. The product BLS times 
(DSM+1) is the total number of bytes held by the drive and, of 
course, must be within the capacity of the physical disk, not 
counting the reserved operating system tracks. 

The DRM entry is one less than the total number of directory 
entries, which can take on a 16-bit value. The values of ALO and 
AL1, however, are determined by DRM. The two values ALO and AL1 can 
together be considered a string of 16-bits, as shown below. 



ALO 



AL1 



00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 



where position 00 corresponds to the high-order bit of the byte 
labeled ALO, and 15 corresponds to the low-order bit of the byte 
labeled ALL Each bit position reserves a data block for a number 
of directory entries, thus allowing a total of 16 data blocks to be 
assigned for directory entries (bits are assigned starting at 00 and 
filled to the right until position 15). Each directory entry 
occupies 32 bytes, as shown in Table 2-6. 



Table 2-6. BLS and Number of Directory Entries 



BLS 


Directory 


Entries 


1,024 
2,048 
4,096 
8,192 

16,384 

__ . 


32 times 
64 times 
128 times 
256 times 
512 times 


# 

# 
# 


bits 
bits 
bits 
bits 
bits 



Thus, if DRM = 127 (128 directory entries), and BLS = 1024, then 
there are 32 directory entries per block, requiring 4 reserved 
blocks. In this case, the 4 high-order bits of ALO are set, 
resulting in the values ALO = 0F0H and AL1 = 00H. 
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The CKS value is determined as follows: if the disk drive 
media is removable, then CKS = (DRM+l)/4, where DRM is the last 
directory entry number. If the media is fixed, then set CKS = 8000H 
(no directory records are checked in this case and drive marked as 
permanent) . 

Finally, the OFF field determines the number of tracks which 
are skipped at the beginning of the physical disk. This value is 
automatically added whenever SETTRK is called, and can be used as a 
mechanism for skipping reserved operating system tracks, or for 
partitioning a large disk into smaller segmented sections. 

To complete the discussion of the DPB, recall that several DPHs 
can address the same DPB if their drive characteristics are 
identical. Further, the DPB can be dynamically changed when a new 
drive is addressed by simply changing the pointer in the DPH since 
the BDOS copies the DPB values to a local area whenever the SELDSK 
function is invoked. 

Returning back to the DPH for a particular drive, note that the 
two address values CSV and ALV remain. Both addresses reference an 
area of uninitialized memory following the BIOS. The areas must be 
unique for each drive, and the size of each area is determined by 
the values in the DPB. 

The size of the area addressed by CSV is CKS bytes, which is 
sufficient to hold the directory check information for this 
particular drive. If CKS = (DRM+l)/4, then you must reserve 
(DRM+l)/4 bytes for directory check use. If CKS = 0, indicating no 
checked directory entries, or CKS = 8000H, marking the drive as 
permanent with no checked directory entries, then no storage is 
reserved. 

The size of the area addressed by ALV is determined by the 
maximum number of data blocks allowed for this particular disk, and 
is computed as (DSM/8)+l. 

2.3.2 The DISKDEF Macro Library 

A macro library called DISKDEF greatly simplifies the table 
construction process. You must have access to the MAC macro 
assembler or the RMAC relocatable macro assembler distributed with 
MP/M II to use the DISKDEF facility. The macro library is included 
with all MP/M II distribution disks. 

A BIOS disk definition consists of the following sequence of 
macro statements: 
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MACLIB 


DISKDEF 


DISKS 


n 


DISKDEF 


0, . . . 


DISKDEF 


1, ... 


• • • • • 




DISKDEF 


n-1 



ENDEF 

where the MACLIB statement loads the DISKDEF. LIB file (on the same 
disk as your BIOS) into MAC's internal tables. The DISKS macro call 
follows, which specifies the number of drives to be configured with 
your system, where n is an integer in the range 1 to 16. A series 
of DISKDEF macro calls then follow, which define the characteristics 
of each logical disk, through n-1 (corresponding to logical drives 
A through P) . Note that the DISKS and DISKDEF macros generate the 
in-line fixed data tables described in the previous section, and 
thus must be placed in a non-executable portion of your BIOS, 
typically directly following the BIOS jump vector. 

The remaining portion of your BIOS is defined following the 
DISKDEF macros, with the ENDEF macro call immediately preceding the 
END statement. The ENDEF (End of Diskdef) macro generates the 
necessary uninitialized RAM areas that are located in memory above 
your BIOS. 

The form of the DISKDEF macro call is 



DISKDEF dn, f sc ,lsc , [skf ] ,bls ,dks ,dir ,cks,of s , [kl6] , [prmj 



where 



dn 


is 


the 


logical dis 


f sc 


is 


the 


first physi 


lsc 


is 


the 


last sector 


skf 


is 


the 


optional se 


bis 


is 


the 


data alloca 


dks 


is 


the 


total numbe 


dir 


is 


the 


number of d 


cks 


is 


the 


number of " 


of s 


is 


the 


track offse 


kl6 


is 


an optional 1.4 




forces 


16K/directo 


prm 


is 


an optional fla 




drive : 


is permanent 



k number, to n-1 

cal sector number (0 or 1) 

number 
ctor skew factor 
tion block size 
r of blocks on the drive, 
irectory entries 
checked" directory entries 
t to logical track 00 

compatibility flag which 
ry entry 
g which indicates that the 

(cannot be removed) 



The value dn is the drive number being defined with this 
DISKDEF macro invocation. The fsc parameter accounts for differing 
sector numbering systems, and is usually or 1. The lsc is the 
last numbered sector on a track. When present, the skf parameter 
defines the sector skew factor which is used to create a sector 
translation table according to the skew. If the number of sectors 
is less than 256, a single-byte table is created, otherwise each 
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translation table element occupies two bytes. No translation table 
is created if the skf parameter is omitted (or equal to 0) . 

The bis parameter specifies the number of bytes allocated to 
each data block, and takes on the values 1024, 2048, 4096, 8192, or 
16384. Generally, performance increases with larger data block 
sizes since there are fewer directory references and logically 
connected data records are physically close on the disk. Also, each 
directory entry addresses more data, and the BIOS-resident RAM space 
is reduced. The dks specifies the total disk size in bis units. 
That is, if the bis = 2048 and dks = 1000, then the total disk 
capacity is 2,048,000 bytes. If dks is greater than 255, then the 
block size parameter bis must be greater than 1024. The value of 
dir is the total number of directory entries which may exceed 255, 
if desired. 

The cks parameter determines the number of directory items to 
check on each directory scan and is used internally to detect 
changed disks during system operation. When this situation is 
detected, MP/M II automatically marks the disk read/only, so that 
data is not subsequently destroyed. As stated in the previous 
section, the valqe of cks equals dir when the media is easily 
changed, as is the case with a floppy disk subsystem. If the disk 
is permanently mounted, then the value of cks is typically and 
thus the prm parameter should be included to indicate that the drive 
is permanent. 

The ofs value determines the number of tracks to skip when this 
particular drive is addressed, which can be used to reserve 
additional operating system space or to simulate several logical 
drives on a single large-capacity physical drive. 

The kl6 parameter is included when file compatibility is 
required with versions of CP/M 1.4 that have been modified for 
higher density disks. This parameter ensures that only 16K is 
allocated for each directory record, as was the case for previous 
versions. Normally, this parameter is left null. Finally, the prm 
parameter can be used to indicate that the drive is permanent. This 
parameter should only be included if the disk media cannot be 
removed from the drive. 

For convenience and economy of table space, the special form 

DISKDEF i, j 

gives disk i the same characteristics as a previously defined drive 
j. A standard four-drive single density system, which is compatible 
with CP/M 1.4, is defined using the following macro invocations: 
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DISKS 4 

DISKDEF 0,1,26,6,1024,243,64,64,2 

DISKDEF 1,0 

DISKDEF 2,0 

DISKDEF 3,0 

• • • 

ENDEF 

with all disks having the same parameter values of 26 sectors per 
track (numbered 1 through 26) , with 6 sectors skipped between eaten 
access, 1024 bytes per data block, 243 data blocks for a total of 
243k byte disk capacity, 64 checked directory entries, and two 
operating system tracks. 

The DISKS macro generates n Disk Parameter Headers (DPHs) , 
starting at the DPH table address DPBASE generated by the macro. 
Each disk header block contains sixteen bytes, as described above, 
and corresponds one-for-one to each of the defined drives. In the 
four drive standard system, for example, the DISKS macro generates a 
table of the form: 

DPBASE EQU $ 

DPE0: DW XLT0,0000H,0000H,0000H,DIRBUF,DPB0,CSV0,ALV0 

DPE1: DW XLT0,0000H,0000H,0000H,DIRBUF,DPB0,CSV1,ALV1 

DPE2: DW XLT0 , 0000H ,0000H , 0000H ,DIRBUF,DPB0 ,CSV2 , ALV2 

DPE3: DW XLT0 ,0000H,0000H, 0000H,DIRBUF,DPB0 ,CSV3 , ALV3 

where the DPH labels are included for reference purposes to show the 
beginning table addresses for each drive, through 3. The values 
contained within the disk parameter header are described in detail 
in the previous section. The check and allocation vector addresses 
are generated by the ENDEF macro in the RAM area following the BIOS 
code and tables. 

Note that if the skf (skew factor) parameter is omitted (or 
equal to 0), the translation table is omitted, and a 0000H value is 
inserted in the XLT position of the disk parameter header for the 
disk. In a subsequent call to perform the logical to physical 
translation, SECTRAN receives a translation table address of DE = 
0000H, and simply returns the original logical sector from BC in the 
HL register pair. A translate table is constructed when the skf 
parameter is present, and the (non-zero) table address is placed 
into the corresponding DPHs. The table shown below, for example, is 
constructed when the standard skew factor skf =6 is specified in 
the DISKDEF macro call: 

XLT0: DB 1,7,13,19,25,5,11,17,23,3,9,15,21 
DB 2,8,14,20,26,6,12,18,24,4,10,16,22 

Following the ENDEF macro call, a number of uninitialized data 
areas are defined. These data areas need not be a part of the BIOS 
that is loaded upon cold start, but must be available between the 
BIOS and the end of memory. The size of the uninitialized RAM area 
is determined by EQU statements generated by the ENDEF macro. For a 
standard four-drive system, the ENDEF macro might produce: 
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4C72 = BEGDAT EQU $ 
(data areas) 
4DB0 = ENDDAT EQU $ 
013C = DATSIZ EQU $-BEGDAT 

which indicates that uninitialized RAM begins at location 4C72H, 
ends at 4DB0H-1, and occupies 013CH bytes. You must ensure that 
these addresses are free for use after the system is loaded. 

After modification, you can use the STAT program to check your 
drive characteristics, because STAT uses the disk parameter block to 
decode the drive information. The STAT command form 

STAT d:DSK: 

decodes the disk parameter block for drive d (d=A,...,P) and 
displays the values shown below. 

r: 128 Byte Record Capacity 

k: Kilobyte Drive Capacity 

d: 32 Byte Directory Entries 

c: Checked Directory Entries 

e: Records/ Extent 

b: Records/ Block 

s: Sectors/ Track 

t: Reserved Tracks 

Three examples of DISKDEF macro invocations are shown below 
with corresponding STAT parameter values. The last example produces 
an 8-megabyte system. 

DISKDEF 0,1,58, ,2048,256,128,128,2 

r=4096, k=512, d=128, c=128, e=256, b=16, s=58, t=2 

DISKDEF 0,1,58, ,2048,1024,300,0,2 

r=16384, k=2048, d=300, c=0 , e=128, b=16, s=58, t=2 

DISKDEF 0,1,58, ,16384,512,128,128,2 

r=65536, k=8192, d=128, c=128, e=1024, b=128, s=58, t=2 



2.4 External Procedure Access 

To help the XIOS access other MP/M entry points, a jump vector 
is dynamically built by the MP/M II GENSYS program and placed at the 
COMMONBASE subroutine entry point. The dynamic portion of the jump 
vector contains five entry points that provide access to user and 
system memory bank switching, the MP/M II dispatcher, the XDOS, and 
the SYSDAT page. Table 2-7 describes external procedure entry 
points. 
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The following example illustrates the code used to access 
external procedures: 



COMMONBASE: 






JMP 


COLDSTART 


SWTUSER: 


JMP 


$-$ 


SWTSYS: 


JMP 


$-$ 


PDISP: 


JMP 


$-$ 


XDOS: 


JMP 


$-$ 


SYSDAT: 


DW 


$-$ 


COLDSTART: 




WBOOT: 








MVI 


C,0 




JMP 


XDOS 



/terminate process 
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Table 2-7. External Procedure Summary 



Subroutine 



Description 



SWTUSER 



SWTSYS 



PDISP 



XDOS 



SYSDAT 



The SWTUSER entry point restores the bank 
of the user's calling program. There are 
no parameters passed or returned. The 
purpose of SWTUSER is to enable BIOS disk 
read and write code to transfer data from a 
disk controller or buffer in common memory 
to/from the DMA buffer in the user's 
calling program. This procedure must be 
called only from common memory, that is 
above the COMMONBASE label, and it must be 
used only from BIOS disk functions. 
Internally the SWTUSER procedure disables 
and then re-enables interrupts. Thus, if 
you disable interrupts before calling 
SWTUSER they will be enabled on returning 
from SWTUSER. 

The SWTSYS entry point restores the bank of 
the BNKBDOS. There are no parameters 
passed or returned. The purpose of SWTSYS 
is to restore the bank containing the 
banked portion of the BDOS following the 
transfer of data from a disk controller or 
buffer in common memory to/from the DMA 
buffer in the user's calling program. This 
procedure must be called only from common 
memory. Internally the SWTSYS procedure 
disables and then re-enables interrupts. 
Thus, if you disable interrupts before 
calling SWTSYS they will be enabled on 
returning from SWTSYS. 

The PDISP entry point forces a dispatch 
call. It is intended to be used at the 
conclusion of interrupt handling when a 
process is to be dispatched. It is 
effectively a null procedure call from the 
point of view of the calling program. 

The XDOS entry point provides access to 
XDOS functions. XDOS functions are 
required for flag operations, queue 
operations and polling devices. 

The SYSDAT entry is not a true entry point, 
but the address of the system data page. 
Section 4 provides a definition of the 
system data page. 
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2.5 Blocking and Deblocking Algorithms 

Upon each call to the BIOS WRITE entry point, the BDOS includes 
information that allows effective sector blocking and deblocking 
where the host disk subsystem has a sector size which is a multiple 
of the basic 128-byte unit. This section presents a general-purpose 
algorithm that can be included within your BIOS that uses the BDOS 
information to perform the operations automatically. 

Upon each call to WRITE, the BDOS provides the following 
information in register C: 

= deferred write sector 

1 = non-deferred write sector 

2 = deferred write to the first sector 

of a new data block 

3 = non-deferred write to the first sector 

of a new data block 

Conditions and 2 occur only for permanent drives and allow 
deferred writes. Conditions 1 and 3 occur for non-permanent 
(removable) drives and force immediate (non-deferred) writes. 
Condition 1 also occurs on permanent drives for writes to the 
directory. 

Conditions 2 and 3 occur when a write operation is made to the 
first sector of a new data block. The blocking/deblocking algorithm 
does not perform physical record pre-reads if sequential writes are 
made to a new data block. In most cases, application programs read 
or write multiple 128-byte sectors in sequence, and thus there is 
little overhead involved in either operation when blocking and 
deblocking records because pre-read operations can be avoided when 
writing records. 

The blocking and deblocking algorithm is listed in Appendix B 
in skeletal form. The file is included on your MP/M II disk. 
Generally, the algorithms map all MP/M II sector read operations 
onto the host disk through an intermediate buffer which ds the size 
of the host disk sector. Throughout the program, values and 
variables which relate to the sector involved in a seek operation 
are prefixed by "sek," while those related to the host disk system 
are prefixed by "hst." The equate statements beginning on line 24 
define the mapping between MP/M II and the host system, and must be 
changed if other than the sample host system is involved. 

The SELDSK entry point clears the host buffer flag whenever a 
new disk is logged-in. Note that although the SELDSK entry point 
computes and returns the Disk Parameter Header address, it does not 
physically select the host disk at this point (it is selected later 
at READHST or WRITEHST) . Further, SETTRK, SETSEC, and SETDMA simply 
store the values, but do not take any other action at this point. 
SECTRAN performs a trivial function of returning the physical sector 
number. 
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The principal entry points are READ and WRITE. These 
subroutines take the place of your previous READ and WRITE 
operations. 

The actual physical read or write takes place at either 
WRITEHST or READHST , where all values have been prepared: hstdsk is 
the host disk number, hsttrk is the host track number, and hstsec is 
the host sector number (which may require translation to a physical 
sector number) . You must insert code at this point which performs 
the full host sector read or write into, or out of, the buffer at 
hstbuf of length hstsiz. All other mapping functions are performed 
by the algorithms. 

2.6 Common Memory Portion of the BNKXIOS 

Take care when selecting which XIOS code is to be placed in 
common memory. This section should give you some helpful 
guidelines . 

In general, all XIOS and BIOS entries (with the exception of 
the disk I/O entries) must be above the COMMONBASE subroutine entry 
point. Thus, the BNKXIOS enables you to place your disk drivers in 
a portion of code that is not in common memory. There are, however, 
some exceptions that affect both the code and data areas of of the 
disk handlers. 

The Disk Parameter Headers and Disk Parameter Blocks must be in 
common memory. 

The DIRBUF data structure, which is referenced by the disk 
parameter blocks, must reside in common memory. 

All disk device polling code and interrupt handlers must reside 
in common memory. 

While it is possible to place a deblocking buffer in non-common 
memory, it requires a sector buffer in common memory and an extra 
move of 128 bytes to move the data first into common memory and then 
into the users DMA buffer. Also, bank switching cannot be permitted 
while a physical DMA from a disk controller to a deblocking buffer 
in non-common memory is in operation. 
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3.1 MP/M II XIOS Overview 

The Extended Input/Output System (XIOS) must include the 
hardware dependent code that polls devices, handles interrupts and 
performs memory management functions. 

The MP/M II system implementor must prepare subroutines that 
perform the functions described in Table 3-1, then place a jump 
vector containing the XIOS entry points immediately following the 
BIOS jump vector. Most of the XIOS subroutines need to be re- 
entrant. The XIOS jump vector must take the following form: 

SELECT MEMORY 

POLL DEVICE 

START CLOCK 

STOP CLOCK 

EXIT CRITICAL REGION 

MAXIMUM CONSOLE NUMBER 

SYSTEM INITIALIZATION 

IDLE PROCEDURE (Optional) 



BIOS+33H 


JMP 


SELMEMORY 


BIOS+36H 


JMP 


POLLDEVICE 


BIOS+39H 


JMP 


STARTCLOCK 


BI0S+3CH 


JMP 


STOPCLOCK 


BI0S+3FH 


JMP 


EXITREGION 


BIOS+42H 


JMP 


MAXCONSOLE 


BIOS+45H 


JMP 


SYSTEMINIT 


BIOS+48H 


JMP 


IDLE 



3.2 MP/M XIOS Entry Points 

Each jump address corresponds to a particular subroutine that 
performs the specific function. Table 3-1 outlines the exact 
responsibilities of each XIOS entry point subroutine. 



Table 3-1. XIOS Subroutine Summary 



Subroutine 



Function 



SELMEMORY 



The SELMEMORY subroutine identifies the 
segment of memory where a process is to 
execute. Each time a process is dispatched 
for execution, the operating system makes a 
call to this XIOS select memory procedure. 
If the hardware environment has memory bank 
selection/protection, SELMEMORY can use the 
passed parameter to select/protect areas of 
memory. The passed parameter (in registers 
BC) is a pointer to a memory descriptor 
from which the memory base, size, 
attributes and bank of the executing 
process can be determined. Thus, all other 
regions of memory can be write-protected. 
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Table 3-1. (continued) 



Subroutine 



Function 



POLLDEVICE 



STARTCLOCK 



MP/M II calls SELMEMORY with interrupts 
disabled from within the dispatcher. The 
SELMEMORY subroutine must not enable 
interrupts. This subroutine must reside 
above the COMMONBASE entry point. 

A polled environment can be created by 
coding XIOS device poll handlers. The 
purpose of implementing a polled 
environment is to avoid typical busy-wait 
code for device operation completion. 
There are also peripheral devices that may 
not operate efficiently under interrupts. 
XDOS calls the device poll handler 
(POLLDEVICE) with the device to be polled 
in the C register as a single parameter. 
The user-written POLLDEVICE procedure can 
be coded to access the device polling 
routines via a table that contains the 
addresses of the device polling procedures. 
An association is made between a device 
number to be polled and the polling 
procedure itself. The polling procedures 
must return a value of OFFH in the 
accumulator if the device is ready, or 00H 
if the device is not ready. POLLDEVICE is 
called from a critical region within the 
dispatcher; therefore, the POLLDEVICE 
subroutine must not enable interrups. This 
subroutine must reside above the COMMONBASE 
entry point. 

The STARTCLOCK and STOPCLOCK procedures 
eliminate unnecessary overhead for the 
system clock interrupt handler. The system 
clock provides a time base for both the 
real time flag and the system tick 
procedure. However, the system tick 
procedure is needed only when where is a 
process on the delay list. MP/M II calls 
STARTCLOCK when a process enters the delay 
list to initiate the system tick time base 
(see Section 3.4). 
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Table 3-1. (continued) 



Subroutine 



Function 



STOPCLOCK 



EXITREGION 



In some hardware environments, it is not 
possible to shut off the system time unit 
clock while maintaining the one-second flag 
used for keeping time of day. In this 
situation, the STARTCLOCK procedure simply 
sets a boolean variable to true, indicating 
that there is a delayed process. The clock 
interrupt handler can then determine if 
system time unit flag is to be set by 
testing the boolean. This subroutine must 
reside above the COMMONBASE entry point. 

When the system delay list is emptied, MP/M 
II calls the STOPCLOCK procedure to stop 
the system tick time base. This eliminates 
unnecessary overhead for the system clock 
interrupt handler. 

In some hardware environments, it is not 
possible to shut off the system time unit 
clock while maintaining the one second flag 
used for keeping time of day; that is, a 
single clock/timer interrupt source is 
used. In this situation, the STOPCLOCK 
procedure simply sets a boolean variable to 
false, indicating that there are no delayed 
processes. The clock interrupt handler can 
then determine if the system time unit flag 
is to be set by testing the boolean. This 
subroutine must reside above the COMMONBASE 
entry point. 

MP/M II calls the EXITREGION procedure to 
test a local parameter called the PREEMPT 
flag. If PREEMPT is true, EXITREGION 
leaves interrupts disabled. If PREEMPT is 
false, EXITREGION enables interrupts. 
Interrupt service routines must set the 
PREEMPT flag true at beginning of the 
interrupt handling. This procedure allows 
an interrupt service routine to make a flag 
set MP/M II system call, leaving interrupts 
disabled until completion of the interrupt 
handling. This subroutine must reside 
above the COMMONBASE entry point. 
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Table 3-1. (continued) 



Subroutine 



Function 



MAXCONSOLE 



SYSTEMINIT 



C 
DE 



The maximum console procedure enables the 
calling program to determine the number of 
physical consoles the BIOS is capable of 
supporting. The number of physical 
consoles is returned in the A register. 
This subroutine must reside above the 
COMMONBASE entry point. 

The system initialization procedure 
performs the required MP/M cold start 
initialization. The following is a typical 
initialization for a banked system: first, 
MP/M II initializes bank 0, disables 
interrupts and calls SYSTEMINIT. Then, 
SYSTEMINIT sets up interrupt jump vectors, 
interrupt masks, and the base page of each 
bank before returning to MP/M II. Finally, 
MP/M II enables interrupts. A typical 
initialization for a non-banked system 
would perform the same steps, but only one 
bank would be initialized. 

MP/M II disables interrupts and calls the 
SYSTEMINIT entry point prior to any other 
XIOS call. As stated above, MP/M II 
enables interrupts immediately upon return 
from SYSTEMINIT. This subroutine must 
reside above the COMMONBASE entry point. 

In systems with bank switched memory, it is 
necessary to set up the base page (0000H - 
00FFH) within each bank of memory. Both 
the MPMLDR and MP/M itself assume that the 
base bank (bank #0) is switched in when the 
MPMLDR is executed. The base bank is 
properly initialized by MP/M prior to 
entering SYSTEMINIT. The information 
required for the initialization of other 
banks is provided on entry to SYSTEMINIT in 
the registers defined below: 

MP/M debugger restart # 

MP/M entry point address for the debugger. 
Place a jump at the proper debugger restart 
location to the address contained in DE. 
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3.2 MP/M XIOS Entry Points 



Table 3-1. (continued) 



Subroutine 



Routine 



HL 



IDLE 



BIOS direct jump table address. Place a 
jump instruction at location 0000H in each 
bank's base page to the address contained 
in HL. 

An IDLE process is the anchor of the 
process ready list. The MP/M II nucleus 
calls the IDLE procedure when there are no 
other processes ready to run. The normal 
IDLE procedure is a call to the dispatcher. 
This most efficiently serves polled 
devices. If your system is entirely 
interrupt-driven (i.e. no polled devices), 
you can supply your own IDLE procedure, 
which should be as follows: 

IDLE: 

HALT 
RET 

If you do not supply an IDLE procedure, 
place three bytes of zero at the BIOS +48H 
location. 



3.3 Interrupt Service Routines 

The MP/M II operating system is designed to work with virtually 
any interrupt architecture, be it flat or vectored. The code 
operating at the interrup£ level saves the required registers, 
determines the cause of the interrupt, removes the interrupting 
condition, sets an appropriate flag, and then forces a dispatch to 
take place. 

Be sure to use a minimum number of stack levels when saving the 
state of the interrupted process. This is because the interrupted 
application program, especially if it has been written for a CP/M 
environment, is not likely to provide extra stack area as a 
contigency for interrupts. The example Extended Input/Output 
Systems shown in the Appendixes illustrate a technique whereby no 
additional levels of stack are required beyond that of the interrupt 
restart itself. This technique is highly recommended. 

Operation of the flags is described in Section 3 of the MP/M II 
Programmer's Guide, under the discussion of the Flag Set and Flag 
Wait XDOS Functions. Briefly, flags synchronize a process to an 
asynchronous event. In general, an interrupt service routine sets a 
particular flag while another process waits for the flag to be set. 
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At a logical level above the physical interrupts, the flags can 
be regarded as providing 256 levels of virtual interrupts (32 flags 
are supported under MP/M II), Thus, logical interrupt handlers wait 
on flags set by the physical interrupt handlers. This mechanism 
allows a common XDOS to operate on potentially all 8080, 8085 and 
Z80® microcomputers, regardless of the hardware environment. 

As an example, consider a hardware environment with a flat 
interrupt structure. That is, a single interrupt level is provided 
and devices must be polled to determine the cause of the interrupt. 
Once the interrupt cause is determined, a specific flag is set 
indicating that that particular interrupt has occurred. 

At the conclusion of the interrupt processing, a jump should be 
made to the MP/M II dispatcher. This is done by jumping to the 
PDISP entry point. This jump gives the processor resource to the 
highest priority ready process, usually the process readied by 
setting the flag in the interrupt handler, and then enables 
interrupts before jumping to resume execution of that process. 

The only XDOS or BDOS call that should be made from an 
interrupt handler is 133: Flag Set. Any other XDOS or BDOS call 
results in a dispatch which would then enable interrupts before the 
execution of the interrupt handler is completed. 

It is recommended that interrupts be used only for asynchronous 
operations such as console input or disk operation complete. In 
general, operations such as console output should not be interrupt- 
driven, because the system has more elasticity when performing 
polled console outputs while idling, rather than incurring the 
dispatch overhead for each character transmitted. This is 
particularly true at higher baud rates. 

If a system requires the execution of a return from interrupt 
(RETI) instruction, the interrupt handler must execute the RETI 
before branching to the dispatcher via the PDISP entry point. 

3.4 Time Base Management 

The XIOS must provide two time bases: a one second flag for 
real time and a system tick for managing the delay list. The one 
second flag operation is logically separate from the system tick 
operation even though it may physically share the same clock/timer 
interrupt source. The one second flag procedure sets flag #2 at 
each one second of real time. MP/M II uses flag #2 to maintain a 
time of day clock. 

The system tick procedure, when enabled by STARTCLOCK, sets 
flag #1 at system time unit intervals. The recommended time unit is 
a period of 16.67 milliseconds, corresponding to a tick frequency of 
60 Hz. When operating with 50 Hz, use a 20 millisecond period. 
MP/M II uses the system tick to manage the delay list until the 
delay list is empty, at which time the system tick procedure is 
disabled by STOPCLOCK. 
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The system tick frequency is critical because it determines the 
dispatch frequency for compute-bound processes. If the frequency is 
too high, a significant amount of system overhead is incurred by 
excessive dispatches. If the frequency is too low, compute-bound 
processes keep the CPU resource for accordingly longer periods. 
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Section 4 
MP/M II System File Components 



The MP/M II system file, MPM.SYS, consists of a number of 
components: the system data page, the customized XIOS, the RESBDOS 
and BNKBDOS, the XDOS and BNKXDOS , the TMP, and the resident system 
processes. MPM.SYS resides in the directory with a user code of 
and usually has the Read Only attribute. The MP/M II loader reads 
the MPM.SYS file into memory to bring up the MP/M II system. 

4.1 System Data 

The system data page contains 256 bytes used by GENSYS to 
dynamically configure the MP/M II system. The system data page can 
be prepared using the GENSYS program or it can be manually prepared 
using DDT or SID. The Table 4-1 describes the byte assignments. 



Table 4-1. System Data Byte Assignments 



Byte 



Contents 



000-000 Mem$top, top page of memory 

001-001 Nmb$cns, number of system consoles (TMPs) 

002-002 Brkpt$RST, breakpoint RST # 

003-003 Add system call user stacks, boolean 

004-004 Bank switched, boolean 

005-005 Z80 version, boolean 

006-006 banked bdos, boolean 

007-007 XIOS jump table page 

008-008 RESBDOS base page 

009-010 CP/NET master configuration table address 

011-011 XDOS base page 

012-012 RSPs (BNKXIOS top+1) base page 

013-013 BNKXIOS base page 

014-014 BNKBDOS base page 

015-015 Max$mem$seg, max memory segment number 

016-047 Initial memory segment table 

048-063 Breakpoint vector table, filled in by debuggers 

064-079 Reserved for MP/M II 

080-095 System call user stack pointer table 

096-119 Reserved for MP/M II 

120-121 Nmb records in MPM.SYS file 

122-122 # ticks/sec 

123-123 System Drive 

124-124 Common Memory Base Page 

125-125 Number of RSPs 

126-127 Listcp array Address 

128-143 Subflg, submit flag array 
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4.1 System Data 



Table 4-1. (continued) 



Byte 


Contents 


144-186 


Reserved for MP/M II 


187-187 


Max locked records/process 


188-188 


Max open files/process 


189-190 


# list items 


191-192 


Pointer to base of lock table free space 


193-193 


Total system locked records 


194-194 


Total system open files 


195-195 


Dayfile logging, boolean 


196-196 


Temporary file drive 


197-197 


Number of printers 


197-241 


Reserved for MP/M II 


242-242 


Banked XDOS base page 


243-243 


TMP process descriptor base 


244-244 


Console.dat base 


245-246 


BDOS/XDOS entry point 


247-247 


TMP.spr base 


248-248 


Nmbrsps, number of banked RSPs 


249-249 


Brsp base address 


250-251 


Brspl, non-resident rsp process link 


252-253 


Sysdatadr, XDOS internal data segment address 


254-255 


Rspl , resident system process link 

— - . . — - - .. , 



4.2 Customized XIOS 

The customized XIOS is obtained either from a file named 
RESXIOS.SPR, or a file named BNKXIOS.SPR. The XIOS file of type SPR 
contains the page relocatable version of the user-customized XIOS. 
The standard method for the generation of the XIOS is to use the 
Digital Research LINK program. An alternative method is described 
in Section 1. 



4.3 BDOS 

The Basic Disk Operating System (BDOS) resides in two page- 
relocatable files named the . RESBDOS. and the BNKBDOS. These two 
files contain the console, list and disk file management code. 



4.3.1 RESBDOS 

The file named RESBDOS. SPR is a page relocatable file 
containing the logical console and list handling, as well as the 
resident portion of the disk file system that provides an interface 
to the BNKBDOS. 
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4.3.2 BNKBDOS 

The file named BNKBDOS. SPR is a page relocatable file 
containing the non-resident portion of the banked BDOS. 

4.4 XDOS 

The XDOS file named XDOS. SPR is a page-relocatable file 
containing the priority-driven MP/M II nucleus. The nucleus 
contains the following code pieces: root module, dispatcher, queue 
management, flag management, memory management, terminal handler, 
terminal message process, command line interpreter, file name 
parser, and time base management. 

4.5 Resident System Processes 

A file type of RSP identifies a resident system process. The 
RSP files distributed with MP/M II include: run-time system status 
display (MPMSTAT) , printer spooler (SPOOL), abort named process 
(ABORT), and a scheduler (SCHED) . At system generation time, GENSYS 
prompts you to select which RSPs to include in the MPM.SYS file. 

It is possible for the user to prepare custom resident system 
processes. The resident system processes must follow these rules: 

• The file must be page-relocatable. Page relocatable files can 
be generated by LINK, or by the submit files MACSPR.SUB or 
ASMSPR.SUB. The output file must be renamed to type RSP. 

• The first two bytes of the resident system process are reserved 
for the address of the BDOS/XDOS. Thus a resident system 
process can access the BDOS/XDOS by loading the two bytes at 
relative 0000-0001H and then performing a PCHL. 

• The process descriptor for the resident system process must 
begin at the third byte position. 

4.6 Banked Resident System Processes 

A banked resident system process consists of two parts: a 
resident portion and the code for the process. The resident portion 
contains the process descriptor, and queues or other data structures 
that must be in common memory. This portion follows the rules given 
above for resident system processes. The presence of a banked 
portion is specified by setting the process descriptor memory 
segment index to zero rather than OFFH. The name provided in the 
process descriptor is used to obtain the banked portion which has a 
file type of BRS. 
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The second part of a banked system process is the actual code 
piece for the process. The rules for the BRS portion are as 
follows: 



• The file must be page relocatable. Page relocatable files can 
be generated by LINK, or the procedure outlined in Section 1. 
The output file must be renamed to type BRS. 

• Bytes 0000-0001H of the banked RSP are reserved for the address 
of the resident portion of the RSP. Thus, a banked RSP must 
access the BDOS/XDOS functions by indirectly loading from the 
two bytes at relative 0000-0001H, which point to the base of 
the resident portion of the RSP, which in turn contain the 
BDOS/XDOS entry point address. 

• Bytes 0002-0003H of the banked RSP must contain the initial 
stack pointer value for the process. Thus the stack for the 
banked RSP is in the banked portion of the RSP, and should be 
initialized such that the return address on top of the stack is 
the banked RSP entry point address. 

• Bytes 0004-000BH of the banked RSP must contain an ASCII name 
for the process. This is used for display purposes during 
GENSYS and MPMLDR execution. 
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Section 5 
System Generation 



5.1 GENSYS Operation 



MP/M II system generation consists of preparing a system data 
file and concatenating both required and optional code files to 
produce a file named MPM.SYS. A GENSYS program reforms these tasks 
and can be run under either MP/M II or CP/M. The GENSYS automates 
the system generation process by prompting the user for optional 
parameters and then prepares the MPM.SYS file. The following sample 
execution illustrates GENSYS operation. 



0A>gensys 

MP/M-80 V2.0 System Generation 
Copyright (C) 1981, Digital Research 

Default entries are shown in (parens) . 

Default base is Hex, precede entry with # for decimal 

Use SYSTEM.DAT for defaults (Y) ? 

Top page of operating system (FF) ? 

Number of TMPs (system consoles) (#2) ? 

Number of Printers (#1) ? 

Breakpoint RST (06) ? 

Add system call user stacks (Y) ? 

Z80 CPU (Y) ? 

Number of ticks/second (#60) ? 

System Disk (E:) ? 

Temporary file drive (E:) ? 

Maximum locked records/process (#16) ? 

Total locked records/system (#32) ? 

Maximum open files/process (#16) ? 

Total open files/system (#32) ? 

Bank switched memory (Y) ? 

Number of user memory segments (#3) ? 

Common memory base page (CO) ? 

Dayfile logging at console (Y) ? 

SYSTEM DAT FF00H 0100H 

TMPD DAT FE00H 0100H 

USERSYS STK FD00H 0100H 

XIOSJMP TBL FC00H 0100H 

Accept new system data page entries (Y) ? 

RESBDOS SPR F000H 0C00H 
XDOS SPR CE00H 2200H 

Select Resident System Processes: 
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SCHED RSP (N) ? 

ABORT RSP (N) ? y 

SPOOL RSP (N) ? y 

MPMSTAT RSP (N) ? y 

ABORT RSP CDOOH 0100H 

SPOOL RSP CCOOH 0100H 

MPMSTAT RSP CBOOH 0100H 

BNKXIOS SPR B800H 1300H 

BNKBDOS SPR 9500H 2300H 

BNKXDOS SPR 9200H 0300H 

TMP SPR 8F00H 0300H 



SPOOL 


BRS 


8700H 


0800H 


MPMSTAT 


BRS 


7900H 


0E00H 


LCKLSTS 


DAT 


7700H 


0200H 


CONSOLE 


DAT 


7500H 


0200H 



Enter memory segment table: 

Base, size, attrib, bank (75, 8B,80 , 00 ) ? 

Base, size,attrib, bank (00 , CO ,00 ,01) ? 

Base, size, attrib, bank (00 , CO ,00 ,02) ? 

Base, size, attrib, bank (00 , CO ,00 ,03) ? 00,ff,0,0 

*** Memory conflict - segment trimmed *** 

Base, size, attrib, bank (00,75,00,00) ? 

MP/M II Sys 7500H 8B00H Bank 00 

Memseg Usr 0000H C000H Bank 01 

Memseg Usr 0000H C000H Bank 02 

Memseg Usr 0000H 7500H Bank 00 

Accept new memory segment table entries (Y) ? 

** GENSYS DONE ** 



5.2 System Generation Parameters 

This section discusses the issues involved in answering each of 
the GENSYS queries shown in the example above. 

5.2.1 Defaults 

The GENSYS program displays default entry values within 
parentheses. The base is hex unless a # character preceeds the 
value to indicate a decimal base. The initial prompt determines if 
the internal GENSYS defaults are to be used, or those of the most 
recently generated SYSTEM.DAT file. 
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5.2.2 Top Page of Operating System 

Enter two hex ASCII digits to give the top page of the 
operating system. The highest address used by MP/M II is XXFFH, 
where XX is the entry. 

5.2.3 Number of System Consoles 

This entry determines the number of system consoles for which 
Terminal Message Processes (TMP's) are created to generate user 
prompts and send command lines to the Command Line Interpreter 
(CLI) . A region of common memory called TMPD.DAT is reserved for 
the TMP process descriptors. Four TMP process descriptors can be 
placed in each page of the TMPD.DAT. Each system console also 
requires 256 bytes of memory for stack and buffer areas in a non- 
resident region of memory called CONSOLE.DAT. MP/M II supports up 
to a maximum of 16 character I/O console devices, of which 8 can be 
system consoles and have associated TMPs. During MP/M II 
initialization, an XIOS call obtains the actual maximum number of 
physical consoles supported by the XIOS. This number is used if it 
is less than the number specified during the GENSYS. 

5.2.4 Number of Printers 

This entry determines the number of physical printers which the 
XIOS is capable of supporting. This number is used by the MPMSTAT 
program when it displays the status of the system printers. 

5.2.5 Breakpoint RST 

Enter the breakpoint restart number to be used by the MP/M 
debuggers. Recommended restarts are RST #1 to RST #6. 

5.2.6 System Call User Stacks 

If you want to execute CP/M *.COM files, enter yes. An 
affirmative response forces a stack switch to occur when system 
calls are made from a user program. BDOS calls require more stack 
space under MP/M II than under CP/M. An affirmative response causes 
GENSYS to allocate a region of common memory called USERSYS.STK. The 
size of this region is determined by the number of user memory 
segments, where 0-3 segments require lOOh bytes and 4-7 segments 
require 200h bytes. 

Note that this affects BDOS calls only, not XDOS calls. The 
XDOS is re-entrant and performs no stack switching. Therefore, if 
your program makes any XDOS calls, you need to make certain that you 
have allocated sufficient stack. 
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5.2.7 Z80 CPU 

An affirmative response should only be made if you do have a 
Z80 CPU. If specified, the MP/M II dispatcher saves and restores 
the Z80 alternate register set. 

5.2.8 Number of Ticks / Second 

This entry value can be used by applications programs to 
determine the number of ticks per second. This value may vary among 
MP/M II systems. 

5.2.9 System Disk 

The drive entered here is used for a second search if the file 
requested to the CLI is not found on the default drive. 

5.2.10 Temporary File Drive 

The drive entered here is used as the drive for temporary disk 
files. This entry is used by SUBMIT when it generates the $n$.SUB 
temporary file. This entry can also be accessed in the system data 
page by application programs as the drive on which to create 
temporary files. 

5.2.11 Maximum Locked Records / Process 

This entry specifies the maximum number of records that a 

single process (usually one program) can lock at any given time. 

This number can range from to 255 and must be less than or equal 
to the total locked records for the system. 

5.2.12 Total Locked Records / System 

This entry specifies the total number of locked records for all 
the processes executing under MP/M II at any given time. This 
number can range from to 255 and should be greater than or equal 
to the maximum locked records per process. 

It is possible to allow each process to either use up the total 
system lock record space, or to allow each process to lock only a 
fraction of the system total. The first technique implies a dynamic 
storage region in which one process can force other processes to 
block because it has consumed all available resources. 
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5.2.13 Maximum Open Files / Process 

This entry specifies the maximum number of files that a single 
process (usually one program) can open at any given time. This 
number can range from to 255 and must be less than or equal to the 
total open files for the system. 

5.2.14 Total Open Files / System 

This entry specifies the total number of open files for all the 
processes executing under MP/M II at any given time. This number 
can range from to 255 and should be greater than or equal to the 
maximum open files per process. 

It is possible either to allow each process to use up the total 
system open file space, or to allow each process to only open a 
fraction of the system total. The first technique implies a dynamic 
storage region in which one process can force other processes to 
block because it has consumed all available resources. 

5.2.15 Bank Switched Memory 

If your system does not have bank-switched memory, then you 

should respond with a "N" . Otherwise respond with a "Y" and 

additional questions and responses (as shown in Section 5.2.2) are 
required. 

5.2.16 Number of User Memory Segments 

The number of user memory segments must be in the range 1 to 7 
and should be greater than or equal the number of system consoles. 

5.2.17 Common Memory Base Page 

In response to this prompt, enter the address of the lowest 
page of memory common to all banks. GENSYS checks that all modules 
requiring residence in common memory are located above this address. 

5.2.18 Dayfile Logging at Console 

An affirmative response causes the generated MP/M II system to 
display the current time, file name and type, and user number of 
each executed command file. 
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5.2.19 Accept System Data Page Entries 

If the entries made for the first 16 queries are acceptable, 
then enter yes. Otherwise, any or all of the entries made can be 
changed by re-cycling through the GENSYS queries, entering a 
carriage return where values are not to be changed. 

5.2.20 Select Resident System Processes 

GENSYS searches the directory for all files of type RSP. Each 
file found is listed and included in the generated system file if 
you respond with a "Y". Tests are performed to make certain that 
the specified RSPs reside at or above the common base address. 

5.2.21 Memory Segment Table 

Memory segmentation is defined by the entries which are made. 
You are prompted for the base, size, attributes, and bank for each 
memory segment. The GENSYS program only allows you to enter the 
number of segments specified in the response to the query regarding 
the number of user memory segments. 

The first default entry made is for the operating system. This 
becomes the segment zero entry in the memory segment table. It is 
switched in during the banked MP/M II execution of the BNKXIOS, 
BRS's, and the BNKBDOS. The first entry is not counted in your 
number of user memory segments. 

A significant amount of error checking is performed using a 
memory bit map to ensure that no memory segments overlap each other. 
It will be possible to customize the GENSYS program such that non- 
existent memory for a particular hardware configuration is pre- 
allocated in the bit map. 

The order of entries in the memory segment table is also 
critical. The first entry is reserved for the operating system. 
The remaining entries can be specified by user. In specifying the 
user memory segments, the absolute TPA regions (segments based at 
0000H) should be specified in order of size, from the largest to the 
smallest. Entering the segments in this order causes the MP/M II 
memory manager to allocate the largest available TPA region for 
execution by a COM program because it linearly searchs through the 
memory segment table for the first available segment based at zero. 
The ordering of relocatable segments (those not based at 0000H) is 
not critical because the MP/M II memory manager does a best fit for 
those segments. 

The attribute byte is normally defined as 00. However, if you 
wish to pre-allocate a memory segment, specify a value of FFH. 

The bank byte value is an index which can be used by the XIOS 
to obtain a value to be sent to the bank switching hardware to 
select the specified bank. Values of 0,1,2,... are used to identify 
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the memory banks. A bank byte value of is used for the non- 
resident portion of MP/M II. 

5.2.22 Accept Memory Segment Table 

A negative response to this query allows memory segment entries 
to be re-edited prior to acceptance. 

5.3 GENSYS Execution 

The GENSYS program has an automatic mode which simplifies 
repetitive generation of MPM.SYS files. This is useful in a debug 
mode of testing, XIOS editing, and a subsequent GENSYS execution to 
produce a new MPM.SYS file. The automatic mode is specified as 
follows : 

0A>GENSYS $A 

The effect of the automatic mode is to simulate the entry of a 
<cr> for each GENSYS query. 
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MP/M Loader 



6.1 MP/M Loader Operation and Display 

The MPMLDR program loads the MPM.SYS file and branches to the 

execution address of the MP/M II operating system. MPMLDR can be 

run under CP/M or loaded from the first two tracks of a disk by the 
cold start loader. 

The MPMLDR displays system loading and configuration. It does 
not require any operator interaction. In the following example, the 
MPM.SYS file prepared by the first GENSYS example shown in Section 5 
is loaded into memory and executed. 

MP/M-II V2.0 Loader 

Copyright (C) 1981, Digital Research 

Nmb of consoles = 2 
Breakpoint RST # =6 
Z80 Alternate register set saved/restored by dispatcher 



Memory 

SYSTEM 

TMPD 

USERSYS 

XIOSJMP 

RESBDOS 

XDOS 

ABORT 

Spool 

MPMSTAT 

BNKXIOS 

BNKBDOS 

BNKXDOS 

TMP 

Spool 

Mpmstat 

LCKLSTS 

CONSOLE 



Segme 
DAT 
DAT 
STK 
TBL 
SPR 
SPR 
RSP 
RSP 
RSP 
SPR 
SPR 
SPR 
SPR 
BRS 
BRS 
DAT 
DAT 



nt Tabl 
FFOOH 
FEOOH 
FDOOH 
FCOOH 
F000H 
CEOOH 
CDOOH 
CCOOH 
CBOOH 
B800H 
9500H 
9200H 
8F00H 
8700H 
7900H 
7700H 
7500H 



e: 
0100H 
0100H 
0100H 
0100H 
0C00H 
2200H 
0100H 
0100H 
0100H 
1300H 
2300H 
0300H 
0300H 
0800H 
0E00H 
0200H 
0200H 



MP/M II Sys 7500H 8B00H 

Memseg Usr 0000H C000H 

Memseg Usr 0000H C000H 

Memseg Usr 0000H 7500H 



Bank 
Bank 1 
Bank 2 
Bank 



MP/M II V2.0 

Copyright (C) 1981, Digital Research 

0A> 



All Information Presented Here is Proprietary to Digital Research 

59 



MP/M II System Guide 6.2 MPMLDR Execution 

6.2 MPMLDR Execution 

Two parameters may be specified to the MPMLDR. The first 
parameter is used to cause a break to a CP/M debugger after the 
loading is completed. The parameter is a $Bn character string 
placed in the default FCB filename field beginning at 005DH. The 
character n is the CP/M debugger restart number. If n is not 
entered, a default of 7 is used. An example of this parameter is 
shown in Section 1.4. 

The second parameter can specify an alternate filename for 
loading other than the standard MPM.SYS file. This parameter is 
specified by placing a filename with a filetype of SYS in the 
default FCB beginning at 005CH, or, if the $Bn parameter is also 
being specified, in the second default FCB beginning at 006CH. A 
good application of this second parameter would be to incorporate a 
menu-driven SYS file selection in the LDRBIOS at the SELDSK entry 
point. Thus, the operator would be prompted to select the 
appropriate SYS file for his MP/M environment. Custom code at the 
SELDSK entry point would prompt the operator for a file name and 
then place the selected SYS file name into the default FCB beginning 
at 005CH. 
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MP/M II V2.0 disk re-definition library 

Copyright (c) 1979, 1980, 1981 

Digital Research 

Box 579 

Pacific Grove, CA 

93950 

MP/M II logical disk drives are defined using the 
macros given below, where the sequence of calls 
is: 

disks n 

diskdef parameter-list-0 

diskdef parameter-list-1 

• • • 

diskdef parameter-list-n 
endef 

where n is the number of logical disk drives attached 
to the MP/M II system, and parameter-1 ist-i defines the 
characteristics of the ith drive (i=0 ,1 ,... ,n-l) 

each parameter-list-i takes the form 

dn,fsc,lsc,[skf] ,bls,dks,dir,cks,ofs,[kl6] ,[prm] 
where 

dn is the disk number 0,1,..., n-1 

fsc is the first sector number (usually or 1) 

lsc is the last sector number on a track 

skf is optional "skew factor" for sector translate 

bis is the data block size (1024 ,2048 ,... ,16384) 

dks is the disk size in bis increments (word) 

dir is the number of directory elements (word) 

cks is the number of dir elements to checksum 

ofs is the number of tracks to skip (word) 

kl6 is an optional which forces 16K/directory entry 

prm is an optional which marks drive as permanent 

for convenience, the form 

dn ,dm 
defines disk dn as having the same characteristics as 
a previously defined disk dm. 

a standard four drive MP/M II system is defined by 

disks 4 

diskdef 0,1,26,6,1024,243,64,64,2 
dsk set 

rept 3 

All Information Presented Here is Proprietary to Digital Research 

61 



MP/M II System Guide 



Appendix A Disk Def Macro 



dsk set dsk+1 
diskdef %dsk,0 
endm 
endef 

the value of "begdat" at the end of assembly defines the 
beginning of the uninitialize ram area above the bios, 
while the value of "enddat" defines the next location 
following the end of the data area. the size of this 
area is given by the value of "datsiz" at the end of the 
assembly. note that the allocation vector will be quite 
large if a large disk size is defined with a small block 
size . 

dskhdr macro dn 

define a single disk header list 

dpe&dn: dw xlt&dn,0000h ;translate table 

dw 0000h,0000h /scratch area 

dw dirbuf ,dpb&dn ;dir buff,parm block 

dw csv&dn,alv&dn /check, alloc vectors 
endm 



disks 

7 i 

ndisks 
dpbase 
} i 
dsknxt 



dsknxt 



macro nd 

define nd disks 

set nd ;;for later reference 

equ $ ;base of disk parameter blocks 

generate the nd elements 

set 

rept nd 

dskhdr %dsknxt 

set dsknxt+1 

endm 

endm 



dpbhdr 
dpb&dn 



macro 

equ 

endm 



dn 
$ 



;disk parm block 



ddb macro data r comment 

;; define a db statement 

db data 

endm 



comment 



ddw macro data, comment 

; ; define a dw statement 

dw data 

endm 



comment 



gcd 



gcdm 
gcdn 
gcdr 



macro m r n 

greatest common divisor of m,n 

produces value gcdn as result 

(used in sector translate table generation) 



set 
set 
set 



; variable for m 
/variable for n 
/variable for r 
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gcdx 
gcdr 



gcdm 
gcdn 



rept 

set 

set 

if 

exitm 

endif 

set 

set 

endm 

endm 



65535 
gcdm/gcdn 
gcdm - gcdx*gcdn 
gcdr = 



gcdn 
gcdr 



diskdef macro dn,f sc ,lsc ,skf , bis, dks ,dir ,cks,of s,kl6 
;; generate the set statements for later tables 



cksz 



dpb&dn 
als&dn 
css&dn 
xlt&dn 

secmax 

sectors 

als&dn 

als&dn 

css&dn 

blkval 
blkshf 
blkmsk 



blkshf 
blkmsk 
blkval 



blkval 
extmsk 



extmsk 
blkval 



extmsk 



set 

if 

current 

equ 

equ 

equ 

equ 

else 

set 

set 

set 

if 

set 

endif 

set 



(cks)/4 
nul Isc 
disk dn 
dpb&fsc 
als&f sc 
css&f sc 
xlt&f sc 



same as previous fsc 
equivalent parameters 
same allocation vector size 
same checksum vector size 
same translate table 



lsc-(fsc) ; /sectors 0... secmax 

secmax+1/ ; number of sectors 

(dks)/8 ;;size of allocation vector 

( (dks) mod 8) ne 

als&dn+l 



cksz 



; /number of checksum elements 



generate the block shift value 



bls/128 ; /number of sectors/block 
//counts right 0's in blkval 
//fills with l's from right 
16 //once for each bit position 
blkval=l 



set 

set 

set 

rept 

if 

exitm 

endif 

otherwise, high order 1 not found yet 

set blkshf+1 

set (blkmsk shl 1) or 1 

set blkval/2 

endm 

generate the extent mask byte 

set 

set 

rept 

if 

exitm 

endif 

otherwise 



bls/1024 //number of kilobytes/block 

//fill from right with l's 

16 

blkval=l 



more to shift 



set 

set 

endm 

may be 

if 

set 



(extmsk shl 
blkval/2 



1) or 1 



double byte allocation 
(dks) > 256 
(extmsk shr 1) 
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extmsk 



dirrem 
dirbks 
dirblk 



dirblk 
dirrem 
dirrem 



xlt&dn 



xlt&dn 



nxtsec 
nxtbas 



neltst 



nelts 
xlt&dn 



end if 

may be optional [0] in last position 

if not nul kl6 

set kl6 

endif 

now generate directory reservation bit vector 



# remaining to process 
number of entries per block 
fill with l's on each loop 



set dir 

set bls/32 

set 

rept 16 

if dirrem=0 

exitm 

endif 

not complete, iterate once again 

shift right and add 1 high order bit 

set (dirblk shr 1) or 8000h 

if dirrem > dirbks 

set dirrem-dirbks 

else 

set 

endif 

endm 

dpbhdr dn ; /generate 
%sectors , <; sec per 
%blkshf ,<;block shift> 
%blkmsk ,<; block mask> 
%extmsk,<; extnt mask> 
% (dks) -1 , <;disk size-l> 
% (dir) -1 ,<; directory max) 
%dirblk shr 8,<;alloc0> 
%dirblk and Of fh,<; allocl> 
nul prm 
% (cks) /4,<; check size> 



ddw 

ddb 

ddb 

ddb 

ddw 

ddw 

ddb 

ddb 

if 

ddw 

else 

ddw 

endif 

ddw 



equ $ 
track> 



8000h+cksz,<; permanent disk with check size> 



%of s,<;o£ fset> 



generate the translate 



nul 


skf 




skf 



= 



if 

equ 

else 

if 

equ 

else 

generate the translate 

set 

set 

gcd 

gcdn = 

set 

neltst 



table, if requested 
;no xlate table 

;no xlate table 



table 

sector to fill 
by one on overflow 



; ; next 

; ; moves 

%sectors ,skf 
gcd (sec tors, skew) 

sectors/gcdn 
is number of elements to generate 



before we overlap previous elements 
set neltst ; /counter 
equ $ /translate table 

rept sectors ;;once for each sector 
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if 


sectors < 256 




ddb 


%nxtsec+ (f sc) 




else 






ddw 


%nxtsec+ (f sc) 




endif 




nxtsec 


set 


nxtsec+ (skf ) 




if 


nxtsec >= sectors 


nxtsec 


set 
endif 


nxtsec- sec tors 


nelts 


set 


nelts-1 




if 


nelts = 


nxtbas 


set 


nxtbas+1 


nxtsec 


set 


nxtbas 


nelts 


set 
endi f 
endm 


neltst 




endif 


; ;end of nul f ac 




endif 


; ; end of nul bis 




endm 




defds 


macro 


lab, space 


lab: 


ds 


space 




endm 




Ids 


macro 


lb,dn,val 




defds 


lb&dn,%val&dn 




endm 





endef macro 

generate the necessary ram data areas 

$ 

128 ;directory access buffer 



ndisks ;;once for each disk 

alv, %dsknxt ,als 

csv,%dsknxt,css 

dsknxt+1 

$ 

$-begdat 

; force out last byte in hex file 



begdst 


ycnc 

equ 


dirbuf : 


ds 


dsknxt 


set 




rept 




Ids 




Ids 


dsknxt 


set 




endm 


enddat 


equ 


datsiz 


equ 


force: 


db 




endm 
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0800 = 

0200 = 

0014 = 

0004 = 

0050 = 

0003 = 

0002 = 



0000 
0001 
0002 



page 
********************************************************* 



Sector Deblocking Algorithms for MP/M II V2.0 



7 i 

@y 
@x 



********************************************************* 

utility macro to compute sector mask 
smask macro hblk 

compute log2(hblk), return @x as result 

(2 ** @x = hblk on return) 

set hblk 

set 

count right shifts of @y until = 1 

rept 8 

if @y = 1 

exitm 

endif 

@y is not 1, shift right one position 

set @y shr 1 

set @x + 1 

endm 

endm 



@y 
@x 



***************************************************** 

* * 

* MP/M to host disk constants * 

* * 
***************************************************** 



blksiz equ 

hstsiz equ 

hstspt equ 

hstblk equ 

cpmspt equ 

secmsk equ 

smask 

secshf equ 



2048 

512 

20 

hstsiz/128 

hstblk * hstspt 

hstblk-1 

hstblk 

@x 



MP/M allocation size 
host disk sector size 
host disk sectors/trk 
MP/M sects/host buff 
MP/M sectors/track 
sector mask 
compute sector mask 
log2 (hstblk) 



***************************************************** 

* * 

* BDOS constants on entry to write * 

* * 
***************************************************** 

wrall equ ;write to allocated 

wrdir equ 1 ;write to directory 

wrual equ 2 ;write to unallocated 

i 

****************************************************** 
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0000 = 



0000 AF 

0001 326901 
0004 326B01 
0007 C9 



* * 

* The BDOS entry points given below show the * 

* code which is relevant to deblocking only. * 

* * 
***************************************************** 

DISKDEF macro, or hand coded tables go here 
dpbase equ $ ;disk param block base 

boot: 

wboot: 

;enter here on system boot to initialize 
xra a ;0 to accumulator 

sta hstact ;host buffer inactive 

sta unacnt /clear unalloc count 

ret 



home 



;home the selected disk 



0008 


3A6A01 




Ida 


hstwrt 


000B 


B7 




ora 


a 


oooc 


C21200 




jnz 


homed 


000F 


326901 


homed : 


sta 


hstact 


0012 


C9 


seldsk: 


ret 

; select 


disk 


0013 


79 




mov 


a ,c 


0014 


326001 




sta 


sekdsk 


0017 


6F 




mov 


Ira 


0018 


2600 




mvi 
rept 
dad 
endm 


h,0 

4 

h 


001A+29 




DAD 


H 


001B+29 




DAD 


H 


001C+29 




DAD 


H 


001D+29 




DAD 


H 


001E 


110000 




lxi 


d, dpbase 


0021 


19 




dad 


d 


0022 


C9 


settrk: 


ret 





0023 60 

0024 69 

0025 226101 
0028 C9 



/check for pending write 
;clear host active flag 



/selected disk number 
/seek disk number 
/disk number to HL 

/multiply by 16 



/base of parm block 
/hl= ,dpb( curds k) 



/set track given by registers BC 

mov h,b 

mov l,c 

shld sektrk /track to seek 

ret 



0029 79 
002A 326301 
002D C9 



setsec: 



/set sector given by register c 

mov a,c 

sta seksec /sector to seek 

ret 
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002E 60 
002F 69 
0030 227401 
0033 C9 



setdma: 



;set dma address given by BC 

mov h,b 

mov l,c 

shld dmaadr 

ret 



0034 60 

0035 69 

0036 C9 



0037 AF 

0038 326B01 
003B 3C 
003C 327201 
003F 327101 
0042 3E02 
0044 327301 
0047 C3B500 



004A 


AF 


004B 


327201 


004E 


79 


004F 


327301 


0052 


E602 


0054 


CA6E00 


0057 


3E10 


0059 


326B01 


005C 


3A6001 


005F 


326C01 


0062 


2A6101 


0065 


226D01 


0068 


3A6301 


006B 


326F01 



sectran: 

; translate sector number BC 
mov h,b 
mov l f c 
ret 

***************************************************** 

* * 

* The READ entry point takes the place of * 

* the previous BIOS defintion for READ. * 

* * 
***************************************************** 

read : 

;read the selected MP/M sector 

xra a 

sta unacnt ;unacnt = 

inr a 

sta readop ;read operation 

sta rsflag ;must read data 

mvi a,wrual 

sta wrtype ; treat as unalloc 

jmp rwoper ; to perform the read 

***************************************************** 

* * 

* The WRITE entry point takes the place of * 

* the previous BIOS defintion for WRITE. * 

* * 

***************************************************** 

write: 

;write the selected MP/M sector 

xra a ; to accumulator 

sta readop ;not a read operation 

mov a,c ; write type in c 

sta wrtype 

ani wrual ;write unallocated? 

jz chkuna ;check for unalloc 

; write to unallocated, set parameters 

mvi a,blksiz/128 ;next unalloc recs 

sta unacnt 

Ida sekdsk ;disk to seek 

sta unadsk ;unadsk = sekdsk 

lhld sektrk 

shld unatrk ;unatrk = sectrk 

Ida seksec 

sta unasec ;unasec = seksec 
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chkuna: 



006E 3A6B0I 

0071 B7 

0072 CAAD00 



0075 3D 

0076 326B01 

0079 3A6001 
007C 216C01 
007F BE 

0080 C2AD00 



0083 216D01 
0086 CD5201 
0089 C2AD00 



008C 3A6301 
008F 216F01 

0092 BE 

0093 C2AD00 



0096 34 

0097 7E 

0098 FE50 
009A DAA600 



009D 3600 
009F 2A6D01 
00A2 23 
00A3 226D01 



00A6 AF 
00A7 327101 
00AA C3B500 



noovf : 



;check for write to unallocated sector 

Ida unacnt ;any unalloc remain? 

ora a 

jz alloc ;skip if not 



more unallocated records remain 

dcr a 

sta unacnt 

Ida sekdsk 

lxi h,unadsk 

cmp m 

jnz alloc 



; unacnt = unacnt-1 

; same disk? 

; sekdsk = unadsk? 
;skip if not 



disks are the same 

lxi h, unatrk 

call sektrkcmp 

jnz alloc 

tracks are the same 

Ida seksec 

lxi h, unasec 

cmp m 

jnz alloc 



;sektrk = unatrk? 
;skip if not 



; same sector? 

; seksec = unasec? 
;skip if not 







alloc: 


;no 


AD 


AF 




xra 


00AE 


326B01 




sta 


00B1 


3C 




inr 


00B2 


327101 




sta 



match, move to next sector for future ref 

; unasec = unasec+1 
;end of track? 
; count MP/M sectors 
;skip if no overflow 



; unasec = 

; unatrk = unatrk+1 



;match found, mark as unnecessary read 

xra a ; to accumulator 

sta rsflag ;rsflag = 

jmp rwoper ; to perform the write 



;not an unallocated record, requires pre-read 



inr 




m 




mov 




a ,m 




cpi 




cpmspt 




jc 




noovf 




over 


fl 


ow to next 


track 


mvi 




m,0 




lhld 




unatrk 




inx 




h 




shld 




unatrk 





a 

unacnt 
a 
rsflag 



to accum 
unacnt = 

1 to accum 
rsflag = 1 



***************************** * * ********************** 

* * 

* Common code for READ and WRITE follows * 

* * 
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0B5 AF 
00B6 327001 
00B9 3A6301 



00BC+B7 


00BD+1F 


00BE+B7 


00BF+1F 


OOCO 


326801 


00C3 


216901 


00C6 


7E 


00C7 


3601 


00C9 


B7 


OOCA 


CAF100 


OOCD 


3A6001 


00D0 


216401 


00D3 


BE 


00D4 


C2EA00 



rwoper : 

;enter here to perform the read/write 

;zero to accum 
; no errors (yet) 
; compute host sector 

;carry = 
/shift right 

; CARRY = 

; SHIFT RIGHT 

; CARRY = 

; SHIFT RIGHT 

;host sector to seek 



;host active flag 

/always becomes 1 
;was it already? 
;fill host if not 



host buffer active, same as seek buffer? 

Ida sekdsk 

lxi h, hstdsk 

cmp m 

jnz nomatch 



xra 


a 


sta 


erf lag 


Ida 


seksec 


rept 


secshf 


ora 


a 


rar 




endm 




ORA 


A 


RAR 




ORA 


A 


RAR 




sta 


sekhst 


active 


host sector? 


lxi 


h,hstact 


mov 


a ,m 


mvi 


m,l 


ora 


a 


jz 


f ilhst 



;same disk? 
;sekdsk = hstdsk? 



00D7 216501 
00DA CD5201 
00DD C2EA00 



same disk, same track? 
lxi h,hsttrk 
call sektrkcmp 
jnz nomatch 



;sektrk = hsttrk? 



00E0 3A6801 

00E3 216701 

00E6 BE 

00E7 CA0E01 



same disk, same track, same buffer? 

Ida sekhst 

lxi h,hstsec ;sekhst = hstsec? 

cmp m 

jz match ;skip if match 



nomatch: 



00EA 


3A6A01 




00ED 


B7 




00EE 


C45E01 


f ilhst: 


00F1 


3A6001 




00F4 


326401 




00F7 


2A6101 




00FA 


226501 




00FD 


3A6801 




0100 


326701 




0103 


3A7101 





/proper disk, but not correct sector 

Ida hstwrt ;host written? 

ora a 

cnz writehst ;clear host buff 



;may have to fill the host buffer 

Ida sekdsk 

sta hstdsk 

lhld sektrk 

shld hsttrk 

Ida sekhst 

sta hstsec 

Ida rsflag ;need to read? 
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0106 B7 

0107 C45F01 
010A AF 
010B 326A01 



010E 3A6301 
0111 E603 

0113 6F 

0114 2600 



0116+29 
0117+29 
0118+29 
0119+29 
011A+29 
011B+29 
011C+29 



011D 
0120 
0121 
0122 
0125 
0127 
012A 
012B 



117601 

19 

EB 

2A7401 

0E80 

3A7201 

B7 

C23401 



012E 3E01 
0130 326A01 
0133 EB 



match 



ora 


a 


cnz 


readhst 


xr a 


a 


sta 


hstwrt 



/yes, if 1 

;0 to accum 

;no pending write 



;copy data to or from buffer 

;mask buffer number 
;least signif bits 
; ready to shift 
;double count 
; shift left 7 



Ida 


seksec 


ani 


secmsk 


mov 


l,a 


mvi 


h,0 


rept 


7 


dad 


h 


endm 




DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


hi has 


relative 


lxi 


d,hstbuf 


dad 


d 


xchg 




lhld 


dmaadr 


mvi 


c,128 


Ida 


readop 


ora 


a 


jnz 


rwmove 



fer address 

;hl = host address 
;now in DE 
; get/put MP/M data 
; length of move 
; which way? 

;skip if read 



write operation, mark and switch direction 

mvi a,l 

sta hstwrt ;hstwrt = 1 

xchg ;source/dest swap 



rwmove 



0134 
0135 
0136 
0137 
0138 
0139 



1A 
13 
77 
23 
0D 
C23401 



013C 3A7301 
013F E601 
0141 3A7001 
0144 C8 



0145 B7 

0146 CO 

0147 AF 



;C initially 128, DE is source, HL is dest 

ldax d /source character 

inx d 

mov m,a ; to dest 

inx h 

dcr c ;loop 128 times 

jnz rwmove 

data has been moved to/from host buffer 

Ida wrtype /write type 

ani wrdir ; to directory? 

Ida erf lag ;in case of errors 

rz ;no further processing 

clear host buffer for directory write 

ora a /errors? 

rnz /skip if so 

xra a / to accum 
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0148 326A01 

014B CD5E01 

014E 3A7001 

0151 C9 



0152 EB 

0153 216101 

0156 1A 

0157 BE 

0158 CO 

0159 13 
015A 23 
015B 1A 
015C BE 
015D C9 



015E C9 



015F C9 



0160 
0161 
0163 

0164 



sta 
call 
Ida 
ret 



hstwrt 
writehst 
erf lag 



;buffer written 



***************************************************** 

* * 

* Utility subroutine for 16-bit compare * 

* * 

***************************************************** 

sektrkcmp: 

; HL = .unatrk or .hsttrk, compare with sektrk 

xchg 

lxi h f sektrk 

ldax d ; low byte compare 

cmp m ; same? 

rnz /return if not 
; low bytes equal, test high Is 

inx d 

inx h 

ldax d 

cmp m ;sets flags 

ret 

***************************************************** 

* * 

* WRITEHST performs the physical write to * 

* the host disk, READHST reads the physical * 

* disk. * 

* * 

***************************************************** 

writehst: 

;hstdsk = host disk #, hsttrk = host track #, 
;hstsec = host sect #. write "hstsiz" bytes 
;from hstbuf and return error flag in erflag. 
/return erflag non-zero if error 
ret 



readhst : 

;hstdsk = host disk #, hsttrk = host track #, 
;hstsec = host sect #. read "hstsiz" bytes 
;into hstbuf and return error flag in erflag. 
ret 

***************************************************** 

* * 

* Unitialized RAM data areas * 

* * 

***************************************************** 



sekdsk: ds 

sektrk: ds 

seksec: ds 

hstdsk: ds 



/seek disk number 

/seek track number 

/seek sector number 

/host disk number 
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0165 
0167 

0168 
0169 
016A 

016B 
016C 
016D 
016F 

0170 
0171 
0172 
0173 
0174 
0176 



hsttrk: 


ds 


hstsec: 


ds 


7 

sekhst: 


ds 


hstact: 


ds 


hstwrt: 


ds 


unacnt: 


ds 


unadsk: 


ds 


unatrk: 


ds 


unasec: 


ds 


erf lag: 


ds 


rsf lag: 


ds 


readop: 


ds 


wrtype: 


ds 


dmaadr : 


ds 


hstbuf : 


ds 



2 

1 

1 
1 
1 

1 
1 
2 

1 

1 
1 
1 
1 
2 
hstsiz 



;host track number 
;host sector number 

;seek shr secshf 
;host active flag 
;host written flag 

;unalloc rec cnt 
;last unalloc disk 
;last unalloc track 
;last unalloc sector 

error reporting 
read sector flag 
1 if read operation 
write operation type 
last dma address 
host buffer 



0376 



***************************************************** 

* * 

* The ENDEF macro invocation goes here * 

* * 
***************************************************** 

end 



00AD 


ALLOC 


0800 


BLKSIZ 


0000 


BOOT 


006E 


CHKUNA 


0050 


CPMSPT 


0174 


DMAADR 


0000 


DPBASE 


0170 


ERFLAG 


00F1 


FILHST 


0008 


HOME 


0012 


HOMED 


0169 


HSTACT 


0004 


HSTBLK 


0176 


HSTBUF 


0164 


HSTDSK 


0167 


HSTSEC 


0200 


HSTSIZ 


0014 


HSTSPT 


0165 


HSTTRK 


016A 


HSTWRT 


010E 


MATCH 


00EA 


NOMATCH 


00A6 


NOOVF 


0037 


READ 


015F 


READHST 


0172 


READOP 


0171 


RSF LAG 


0134 


RWMOVE 


00B5 


RWOPER 


0003 


SECMSK 


0002 


SECSHF 


0034 


SECTRAN 


0160 


SEKDSK 


0168 


SEKHST 


0163 


SEKSEC 


0161 


SEKTRK 


0152 


SEKTRKCMP 


0013 


SELDSK 


002E 


SETDMA 


0029 


SETSEC 


0023 


SETTRK 


016B 


UNACNT 


016C 


UNADSK 


016F 


UNASEC 


016D 


UNATRK 


0000 


WBOOT 


0000 


WRALL 


0001 


WRDIR 


004A 


WRITE 


015E 


WRITEHST 


0173 


WRTYPE 


0002 


WRUAL 
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page 

title 'Skeleton MP/M-80 V2.0 Ldrbios' 



Copyright (C) 1978, 1979, 1980, 1981 

Digital Research 

Box 579, Pacific Grove 

California, 93950 



0000 = 
FFFF = 



false 
true 



equ 
equ 





not false 



1700 



org 



1700h 



0080 = 



buff 



equ 



0080h 



; default buffer address 



jump vector for indiviual routines 



1700 


C33317 




jmp 


boot 


1703 


C33317 


wboote : 


jmp 


wboot 


1706 


C33617 




jmp 


const 


1709 


C33417 




jmp 


conin 


170C 


C33517 




jmp 


conout 


170F 


C33917 




jmp 


list 


1712 


C33817 




jmp 


punch 


1715 


C33717 




jmp 


reader 


1718 


C33C17 




jmp 


home 


171B 


C33B17 




jmp 


seldsk 


171E 


C33D17 




jmp 


settrk 


1721 


C33E17 




jmp 


setsec 


1724 


C33F17 




jmp 


setdma 


1727 


C34117 




jmp 


read 


172A 


C34217 




jmp 


write 


172D 


C33A17 




jmp 


list$st 


1730 


C34017 


boot: 
wboot : 
gocpm: 


jmp 


sect$tran 


1733 


C9 


crtin: 


ret 


7 


1734 


C9 


crtout : 


ret 


t 


1735 


C9 




ret 





list status poll 
sector translation 



; crt: input 
; crt: output 
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1736 C9 

1737 C9 

1738 C.9. 

1739 C9 
173A C9 

1734 * 

1736 = 

1735 = 

1737 = 

1738 » 

1739 « 
1.7 3A = 

173B C9 

17 3C C9 

173D C9 

173E C9 

173F C9 

17.40 '.G.9 

1741 C9 

1742 C9 
1743 



crtst: 



ttyin: 
ttyout : 
lptout: 
lpt$st: 



ret 



ret 



ret 



ret 



ret 



crt: status 

tty: input 

tty: output 

lpt: output 



conm equ 

const equ 

conout equ 

reader equ 

punch equ 

list equ 

listst equ 



crtin 

crtst 

crtout 

ttyin 

ttyout 

lptout 

lpt st 



seldsk: ;select disk given by register c 
ret 

7 

home: ;move to home position 

ret 
7 

settrk: 7set track number given by c 
ret 

7 

setsec: ;set sector number given by c 
ret 

7 

setdma: ;set dma address given by regs b,c 
ret 



sect$tran: 
ret 



; translate the sector # in <c 



read: ;read next disk record (assuming disk/trk/sec/ 
ret 

7 

write: ;disk write function 
ret 

end 
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0000 = 
FFFF = 

FFFF = 
FFFF = 

FFFF = 



0086 = 



0000 C34900 



0003 


C35A00 


0006 


C35F00 


0009 


C36800 


OOOC 


C37100 


000F 


C3DF00 


0012 


C38100 


0015 


C38100 


0018 


C3CA02 


001B 


C3DB02 


001E 


C30503 


0021 


C32203 


0024 


C33A03 


0027 


C34003 


002A 


C34503 


002D 


C30101 


0030 


C32803 



page 

title 'MP/M II V2.0 DSC-2 Basic & Extended I/O 

cseg 

maclib diskdef 

bios for micro-2 computer 



false 
true 

debug 
ldcmd 

MHz4 



equ 
equ 

equ 
equ 

equ 



if 
dlycnst equ 

else 
dlycnst equ 

end if 

} 

; org 

;pdisp equ 
;xdos equ 





not false 

true 
true 



true 

MHz4 
086h 

054h 



wboot 



jump 

jmp 

jmp 

jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 



OOOOh 

$-3 
pdisp-3 

vector for individual subroutines 
coldstart ;cold start 
commonbase 



warmstart 

const 

conin 

conout 

list 

rtnempty 

rtnempty 

home 

seldsk 

settrk 

setsec 

setdma 

read 

write 

pollpt 

sectran 



warm start 
console status 
console character in 
console character out 
list character out 
punch not implemented 
reader not implemente 
move head to home 
select disk 
set track number 
set sector number 
set dma address 
read disk 
write disk 
list status 
sector translate 
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0033 


C30C02 




jmp 


selmemory 


0036 


C3F301 




jmp 


polldevice 


0039 


C30D02 




jmp 


startclock 


003C 


C31302 




jmp 


stopclock 


003F 


C31802 




jmp 


exitregion 


0042 


C31F02 




jmp 


maxconsole 


0045 


C32202 




jmp 


systeminit 


0048 


00 




db 









i 


jmp 


idle 


, 




commonb 


ase: 




0049 


C35A00 




jmp 


coldstart 


004C 


C30000 


swtuser 


: jmp 


$-$ 


004F 


C30000 


swtsys : 


jmp 


$-$ 


0052 


C30000 


pdisp: 


jmp 


$-$ 


0055 


C30000 


xdos : 


jmp 


$-$ 


0058 


0000 


sysdat : 


dw 


$-$ 






coldstart : 








warmstart : 




005A 


0E00 




mvi 


c,0 


005C 


C35500 




jmp 


xdos 



000 



select memory 

poll device 

start clock 

stop clock 

exit region 

maximum console numb 

system initializatio 

force use of interna 

idle procedure 



; system reset, termin 



I/O handlers 



MP/M II V2.0 Console Bios 



nmbcns equ 



0083 


= 


poll 


equ 


131 


0086 


= 


makeque 


equ 


134 


0089 


= 


readque 


equ 


137 


008B 


= 


writeque equ 


139 


008D 


= 


xdelay 


equ 


141 


0090 


= 


create 


equ 


144 


0000 


= 


pllpt 


equ 





0001 


= 


plcoO 


equ 


1 


0002 


= 


plco2 


equ 


2 


0003 


= 


plco3 


equ 


'3 


0004 


= 


plci3 


equ 
if 


4 
debug 


0005 




plciO 

7 

const: 


equ 
endif 


5 


005F 


CD7A0 




call 


ptbljmp ; 


0062 


8E00 




dw 


ptOst ; 


0064 


0901 




dw 


pt2st ; 


0066 


C301 




dw 


pt3st ; 



number of consoles 

XDOS poll function 

XDOS make queue function 

XDOS read queue function 

XDOS write queue function 

XDOS delay function 

XDOS* create process function 

poll printer 

poll console out #0 

poll console out #1 

poll console out #2 (Port 3) 

poll console in #2 (Port 3) 

poll console in #0 



Console Status 

compute and jump to hndlr 

console #0 status routine 

console #1 (Port 2) status r 

console #2 (Port 3) status r 
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conin: 






0068 


CD7A00 




call 


ptbljmp ; 


006B 


9D00 




dw 


ptOin ; 


006D 


9901 




dw 


pt2in ; 


006F 


CB01 


conout : 


dw 


pt3in ; 


0071 


CD7A00 




call 


ptbljmp ; 


0074 


C200 




dw 


ptOout ; 


0076 


A701 




dw 


pt2out ; 


0078 


D701 


ptbl jmp 


dw 


pt3out ; 


007A 


7A 




mov 


a , d 


007B 


FE03 




cpi 


nmbcns 


007D 


DA8300 




jc 


tbl jmp 


0080 


Fl 




pop 


psw 






rtnempty : 




0081 


AF 




xra 


a 


0082 


C9 


tbl jmp: 


ret 




0083 


87 




add 


a ; 


0084 


El 




pop 


h 


0085 


5F 




mov 


e , a 


0086 


1600 




mvi 


d,0 


0088 


19 




dad 


d 


0089 


5E 




mov 


e,m ; 


008A 


23 




inx 


h 


008B 


56 




mov 


d ,m 


008C 


EB 




xchg 




008D 


E9 




pchl 


/ 



Console Input 

compute and jump to hndlr 

console #0 input 

console #1 (Port 2) input 

console #2 (Port 3) input 

Console Output 

compute and jump to hndlr 

console #0 output 

console #1 (Port 2) output 

console #2 (Port 3) output 



compute and jump to handler 

d = console # 

do not destroy d ! 



throw away table address 



compute and jump to handler 
a = table index 
double table index for adr o 
return adr points to jump tb 



add table index * 2 to tbl b 
get handler address 



; jump to computed ens handler 



005F 
007F 
0020 
0008 
005F 



0040 
0041 
0041 
0048 
0049 
0049 
0050 
0051 



ASCII Character Equates 

uline equ 5fh 

rubout equ 7fh 

space equ 20h 

backsp equ 8h 

altrub equ uline 



; Input 


/ Ou 


tp 


ut Port A 


dataO 


equ 




40h 


stsO 


equ 




data0+l 


cdO 


equ 




stsO 


datal 


equ 




48h 


stsl 


equ 




datal+1 


cdl 


equ 




stsl 


data2 


equ 




50h 


sts2 


equ 




data2+l 
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0051 


= 


cd2 


equ 


sts2 




0058 


= 


data3 


equ 


58h 




0059 


= 


sts3 


equ 


data3+l 




0059 


= 


cd3 


equ 


sts3 








\ Poll 


Console 
if 


#0 Input 
debug 








polciO : 












ptOst: 


if 


ldcmd 




008E 


3AAF0 




Ida 


ptOcntr 




0091 


B7 




ora 


a 




0092 


3E00 




mvi 


a,0 




0094 


CO 




rnz 
end if 






0095 


DB41 




in 


stsO 




0097 


E602 




ani 


2 




0099 


C8 




rz 






009A 


3EFF 




mvi 


a,0ffh 




009C 


C9 


7 

ptOin: 


ret 

if 


ldcmd 




009D 


21AF00 




lxi 


h, ptOcntr 




00A0 


7E 




mov 


a,m 




00A1 


B7 




ora 


a 




00A2 


CAB600 




jz 


ldcmdOempty 




00A5 


35 




dcr 


m 




00A6 


2AB000 




lhld 


ptOptr 




00A9 


7E 




mov 


a ,m 




OOAA 


23 




inx 


h 




OOAB 


22B000 




shld 


ptOptr 




OOAE 


C9 


ptOcntr 


ret 






OOAF 


04 


ptOptr : 


db 


ldcmdOempty- 


-ptOldcmd 


OOBO 


B200 




dw 


ptOldcmd 








ptOldcmd: 






00B2 


746F6420 




db 


'tod ' 








ldcmdOempty: 












end if 






00B6 


0E83 




mvi 


c , poll 




00B8 


1E05 




mvi 


e,plciO 




OOBA 


CD5500 




call 


xdos 




OOBD 


DB40 




in 


dataO 




OOBF 


E67F 




ani 


7fh 




00C1 


C9 




ret 







else 



ptOst: 



return Offh if ready, 
OOOh if not 
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Ida 


cOinmsgcnt 


ora 


a 


rz 




mvi 


a,0ffh 


ret 





Console #0 Input 
cOinpd: 



dw 


c2inpd 


; pi 


db 





; status 


db 


32 


; priority 


dw 


cOinstk+18 ; stkptr 


db 


•cOin 


' ; name 


db 





; console 


db 


Offh 


; memseg 


ds 


36 




cOinstk : 






dw 


0c7c7h, 


0c7c7h,0c7c7h 


dw 


0c7c7h, 


0c7c7h,0c7c7h 


dw 


0c7c7h, 


0c7c7h,0c7c7h 


dw 


cOinp 


; starting addre 


cOinq: 






dw 





; qi 


db 


' cOinque ' ; name 


dw 


1 


; msglen 


dw 


4 


; nmbmsgs 


ds 


8 




cOinmsgcnt: 






ds 


2 


; msgcnt 


ds 


4 


; buffer 


cOinqcb: 






dw 


cOinq 


; pointer 


dw 


chOin ; 


msgadr 


chOin: 






db 







cOinuqcb: 






dw 


cOinq 


; pointer 


dw 


charOin 


; msgadr 


charOin: 






db 







cOinp: 






mvi 


c,makeq 


ue 


lxi 


d,cOinq 




call 


xdos 


; make the cOinq 


cOinloop: 






mvi 


c, flag wait 


mvi 


e , 6 




call 


xdos 


; wait for cO in 
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mvi c,writeque 

lxi d,cOinqcb 

call xdos ; write cOin queue 

jmp cOinloop 



ptOin: 



OODE 00 



00DF 3ADE00 
00E2 B7 









mvi 


c, readque 








lxi 


d,cOinuqcb 








call 


xdos 








Ida 


charOin 








ani 


7fh 








ret 








i 


endif 








; Console #0 Output 






ptOout: 






00C2 


DB41 




in 


stsO 


00C4 


E601 




ani 


Olh 


00C6 


C2D200 




jnz 


txOrdy 


00C9 


C5 




push 


b 


00CA 


0E83 




mvi 


c,poll 


OOCC 


1E01 




mvi 


e ,plco0 


00CE 


CD5500 




call 


xdos ; 


00D1 


CI 


txOrdy: 


pop 


b 


00D2 


79 




mov 


a,c 


00D3 


D340 




out 


dataO 


00D5 


C9 




ret 








; poll 


console 


#0 output 






polcoO: 






00D6 


DB41 




in 


stsO 


00D8 


E601 




ani 


Olh 


OODA 


C8 




r z 




OODB 


3EFF 




mvi 


a,0ffh 


OODD 


C9 




ret 





return character in reg A 



read from cO in queu 
get character 
strip parity bit 



Reg C = character to output 



poll console #0 output 



Line Printer Driver: TI 810 Serial Printer 

TTY Model 40 



initf lag : 
db 

list: 
ptlout : 

Ida 
ora 



initf lag 
a 



printer initialization flag 

List Output 

Reg c = Character to print 
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00E3 


C2ED00 


00E6 


3E27 


00E8 


D349 


OOEA 


32DE00 


OOED 


DB49 


OOEF 


E601 


00F1 


C2FD00 


00F4 


C5 


00F5 


0E83 


00F7 


1E00 


00F9 


CD5500 


OOFC 


CI 


OOFD 


79 


OOFE 


D348 


0100 


C9 



0101 
0103 
0105 
0106 
0108 



DB49 

E601 

C8 

3EFF 

C9 



0109 
010C 
010D 
010E 
0110 



3A6F01 

B7 

C8 

3EFF 

C9 



ptlxx : 



txlrdy 

Poll 
pollpt: 



jnz 
mvi 
out 
sta 

in 

ani 

jnz 

push 

mvi 

mvi 

call 

pop 

mov 
out 
ret 



ptlxx 
a,27h 
49h 
initf lag 

stsl 

Olh 

txlrdy 

b 

c,poll 

e,pllpt 

xdos 

b 

a ,c 
datal 



; TTY Model 40 init 



; poll printer output 



; char to register a 



Printer Output 



; return Offh if ready, 
OOOh if not 



in 

ani 

rz 

mvi 

ret 



stsl 
Olh 



Poll 
pt2st : 



a, Offh 
Console #1 (Port 2) Input 



Ida 

ora 

rz 

mvi 

ret 



; return Offh if ready, 
; OOOh if not 

c2inmsgcnt 

a 

a, Offh 



Console #1 (Port 2) Input 



c2inpd : 



0111 


0000 


dw 


0113 


00 


db 


0114 


22 


db 


0115 


5701 


dw 


0117 


6332696E20 


db 


011F 


02 


db 


0120 


FF 


db 


0121 




ds 




c2instk 


. 


0145 


C7C7C7C7C7 


dw 


014B 


C7C7C7C7C7 


dw 



; pi 

; status 

34 ; priority 
c2instk+18 ; stkptr 
'c2in ' ; name 

2 ; console 

Offh ; memseg 
36 



0c7c7h,0c7c7h,0c7c7h 
0c7c7h,0c7c7h,0c7c7h 
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0151 


C7C7C7C7C7 dw 


0157 


7F01 


dw 
c2inq: 


0159 


0000 


dw 


015B 


6332696E71 db 


0163 


0100 


dw 


0165 


0400 


dw 


0167 




ds 
c2inmsgcnt 


016F 




ds 


0171 




ds 
c2inqcb: 


0175 


5901 


dw 


0177 


7901 


dw 
ch2in: 


0179 


00 


db 
c2inuqcb: 


017A 


5901 


dw 


017C 


7E01 


dw 
char2in: 


017E 


00 


db 



017F 0E86 
0181 115901 
0184 CD5500 



0187 0E84 

0189 1E08 
018B CD5500 
018E 0E8B 

0190 117501 
019 3 CD5500 
0196 C38701 



c2inp: 

mvi 
lxi 
call 

c2inloop: 

mvi 

mvi 

call 

mvi 

lxi 

call 

jmp 



0c7c7h,0c7c7h,0c7c7h 
c2inp ; starting address 



; ql 
f c2inque ' ; name 

1 ; msglen 
4 ; nmbmsgs 
8 



; msgcnt 
; buffer 



c2inq ; pointer 
ch2in ; msgadr 







c2inq ; pointer 
char2in ; msgadr 







c ,makeque 

d,c2inq 

xdos ; make the c2inq 



c, flagwait 

e,8 

xdos ; wait for c2 in intr flag 

c,writeque 

d,c2inqcb 

xdos ; write c2in queue 

c2inloop 



pt2in: 



0199 


0E89 




mvi 


c, readque 


019B 


117A01 




lxi 


d,c2inuqcb 


019E 


CD5500 




call 


xdos 


01A1 


3A7E01 




Ida 


char2in 


01A4 


E67F 




ani 


7fh 


01A6 


C9 




ret 








; Conso 


le #1 


(Port 2) Outp 






pt2out: 






01A7 


DB51 




in 


sts2 


01A9 


E601 




ani 


Olh 



return character in reg A 



read from c2 in queu 
get character 
strip parity bit 



Reg C = character to output 
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01AB C2B701 
01AE C5 
01AF 0E83 
01B1 1E02 
01B3 CD5500 
01B6 CI 

01B7 79 
01B8 D350 
01BA C9 



01BB DB51 
01BD E601 
01BF C8 
01C0 3EFF 
01C2 C9 



01C3 DB59 
01C5 E602 
01C7 C8 
01C8 3EFF 
OICA C9 



OICB 0E83 
OICD 1E04 
01CF CD5500 
01D2 DB58 
01D4 E67F 
01D6 C9 



01D7 DB59 
01D9 E601 
OlDB C2E701 
OlDE C5 
OlDF 0E83 
01E1 1E03 
01E3 CD5500 
01E6 CI 

01E7 79 
01E8 D358 



jnz 


tx2rdy 




push 


b 




mvi 


c,poll 




mvi 


e,plco2 




call 


xdos ; 


poll console #1 output 


pop 


b 




tx2rdy: 






mov 


a ,c 




out 


data2 




ret 






; poll console 


#1 output 




polco2: 






in 


sts2 




ani 


Olh 




rz 






mvi 


a, Offh 




ret 







Poll Console #2 (Port 3) Input 



polci3: 
pt3st: 



; return Offh if ready, 
OOOh if not 



in 

ani 

rz 

mvi 

ret 



sts3 
2 

a, Offh 



Console #2 (Port 3) Input 



pt3in: 



mvi 


c , po 1 1 


mvi 


e ,plci3 


call 


xdos 


in 


data3 


ani 


7fh 


ret 





; return character in reg A 



poll console #0 inpu 
read character 
strip parity bit 



Console #2 (Port 3) Output 



pt3out : 



; Reg C = character to output 



tx3rdy : 



in 


sts3 


ani 


Olh 


jnz 


tx3rdy 


push 


b 


mvi 


c, poll 


mvi 


e ,plco3 


call 


xdos 


pop 


b 


mov 


a ,c 


out 


data3 



; poll console #2 (Por 



transmit character 
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01EA C9 



01EB DB59 
01ED E601 
01EF C8 
01F0 3EFF 
01F2 C9 



01F3 79 

01F4 FE06 

01F6 DAFB01 

01F9 3E06 



01FB CD8300 



OlFE 0101 
0200 D600 
0202 BB01 
0204 EB01 
0206 C301 

0208 8E00 

0006 = 
020A 8100 



ret 
Poll Console #2 (Port 3) Output 
polco3 : 



; return Offh if ready, 
OOOh if not 



in 

ani 

rz 

mvi 

ret 



sts3 
Olh 

a f Offh 



MP/M II V2.0 Xios 



polldevice: 



mov 
cpi 
jc 
mvi 



devok : 



devtbl 



nmbdev 



call 



dw 

dw 

dw 

dw 

dw 

if 

dw 

endif 

equ 

dw 



Reg C = device # to be polle 
return Offh if ready, 
OOOh if not 
a ,c 

nmbdev 
devok 

a, nmbdev; if dev # >= nmbdev, 
; set to nmbdev 

tbl jmp ; jump to dev poll code 



pollpt ; poll printer output 

polcoO ; poll console #0 output 

polco2 ; poll console #1 output 

polco3 ; poll console #2 output 

polci3 ; poll console #2 input 

debug 

polciO ; poll console #0 input 

($-devtbl)/2 ; number of devices to 

rtnempty; bad device handler 



020C C9 



; Select / Protect Memory 

} 

selmemory: 

Reg BC = adr of mem descript 
BC -> base 1 byte, 
size 1 byte, 
attrib 1 byte, 
bank 1 byte. 
; this hardware does not have memory protection or 
; bank switching 
ret 

; Start Clock 
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startclock: 



0218 3A3104 
021B B7 
021C CO 
021D FB 
021E C9 



021F 3E03 
0221 C9 



0222 3EC3 
0224 323800 
0227 214702 
022A 223900 

022D 0E90 
022F 111101 



0232 CD5500 
0235 3A3004 



; will cause flag #1 to be set 
; at each system time unit ti 



020D 


3EFF 


mvi 


a,0ffh 


020F 


322F04 


sta 


tickn 


0212 


C9 


ret 
; Stop Clock 
stopclock: 




0213 


AF 


xra 


a 


0214 


322F04 


sta 


tickn 


0217 


C9 


ret 





; will stop flag #1 setting at 
; system time unit tick 



Exit Region 

exitregion: 

Ida 

ora 

rnz 

ei 

ret 



; EI if not preempted or in di 



preemp 
a 



Maximum Console Number 
a,nmbcns 



maxconsole: 
mvi 
ret 



System Initialization 
systeminit: 

This is the place to insert code to initialize 
the time of day clock, if it is desired on each 
booting of the system. 



; JMP INTHND at 00 38H 



mvi 


a,0c3h 


sta 


0038h 


lxi 


h, inthnd 


shld 


0039h 


mvi 


c, create 


if 


debug 


lxi 


d,c2inpd 


else 




lxi 


d,c0inpd 


endif 




call 


xdos 


Ida 


intmsk 
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0238 D360 

023A ED56 

2 3C FB 
023D CDCA02 
0240 0E84 
0242 1E05 
0244 C35500 



out 


60h 


db 


0edh,056h 


ei 




call 


home 


mvi 


c , f lagwai t 


mvi 


e,5 


jmp 


xdos 


ret 





; init interrupt mask 

; Interrupt Mode 1 

; ** Z80 Instruction * 



; clear first disk int 
; & return 



; Idle procedure 

? 

; idle: 

; ret 

-or- 



ei 

hit 

ret 



; for full interrupt s 



MP/M II V2.0 Interrupt Handlers 



0084 = 

0085 = 
008E = 



0247 222904 
024A El 
024B 222D04 
024E F5 
024F 210000 

0252 39 

0253 222B04 
0256 312904 

0259 D5 
025A C5 

025B 3EFF 
025D 323104 

0260 DB60 
0262 E640 
0264 C28F02 

267 DB80 



flagwait equ 132 

flagset equ 133 

dsptch equ 142 

inthnd: 



Interrupt handler entry poin 
All interrupts gen a RST 7 
Location 0038H contains a j 
to INTHND. 



shld 


svdhl 


pop 


h 


shld 


svdret 


push 


psw 


lxi 


h,0 


dad 


sp 


shld 


svdsp 


lxi 


sp,lstintstk 


push 


d 


push 


b 


mvi 


a,0ffh 


sta 


preemp ; se 


in 


60h 


ani 


01000000b 


jnz 


clk60hz 



; save users stk ptr 
; lcl stk for intr hnd 



in 



stat 



; read interrupt mask 
; test & jump if elk i 



read disk status por 
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0269 E608 
026B C27802 



026E DB51 
0270 E602 
0272 C28002 



ani 


08h 


jnz 


diskintr 


if 


not debug 


in 


stsO 


ani 


2 


jnz 


conOin 


endif 




in 


sts2 


ani 


2 


jnz 


con2in 



0275 


C3B502 




jmp 


intdone 






diskintr: 




0278 


AF 




xra 


a 


0279 


D380 




out 


cmdl 


027B 


1E05 




mvi 


e,5 


027D 


C38702 


conOin: 
con2in: 


jmp 

if 

in 

sta 

mvi 

jmp 

endif 


concmn 

not debug 

dataO 
chOin 
e , 6 
concmn 


0280 


DB50 




in 


data2 


0282 


327901 




sta 


ch2in 


0285 


1E08 




mvi 


e,8 






i 


jmp 


concmn 






concmn: 






0287 


0E85 




mvi 


c , f lagset 


0289 


CD5500 




call 


xdos 


028C 


C3B502 


clk60hz 


jmp 


intdone 


028F 


3A2F04 




Ida 


tickn 


0292 


B7 




ora 


a 


0293 


CA9D02 




jz 


notickn 


0296 


0E85 




mvi 


c ,f lagset 


0298 


1E01 




mvi 


e,l 


029A 


CD5500 


notickn: 


call 


xdos 


029D 


210004 




Ixi 


h,cnt60 


02A0 


35 




dcr 


m 


2A1 


C2AD02 




jnz 


notlsec 



; test/handle other in 



; reset disk interrupt 
; set flag #5 



; set flag #6 



; set flag #8 



; 60 Hz clock interrup 

; test tickn, indicate 
; delayed process(es) 



; set flag #1 each tic 



; dec 60 tick cntr 
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2A4 


363C 




mvi 


m,60 


2A6 


0E85 




mvi 


c , flagset 


2A8 


1E02 




mvi 


e,,2 


2AA 


CD5500 


notlsec 


call 


xdos 


2AD 


AF 




xra 


a 


02AE 


D360 




out 


60h 


02B0 


3A3004 




Ida 


intmsk 


02B3 


D360 




out 
jmp 


60h 
intdone 



02C7 C35200 



; set flag #2 @ 1 sec 



; ack clock interrupt 



Other interrupt handlers 







intdone: 




02B5 


AF 


xra 


a 


02B6 


323104 


sta 


preemp 


02B9 


CI 


pop 


b 


02BA 


Dl 


pop 


d 


02BB 


2A2B04 


lhld 


svdsp 


02BE 


F9 


sphl 




02BF 


Fl 


pop 


psw 


02C0 


2A2D04 


lhld 


svdret 


02C3 


E5 


push 


h 


02C4 


2A2904 


lhld 


svdhl 



clear preempted flag 



restore stk ptr 



The following dispatch call will force round robin 
scheduling of processes executing at the same prior 
each l/60th of a second. 

Note: Interrupts are not enabled until the dispatche 
resumes the next process. This prevents interrupt 
over-run of the stacks when stuck or high frequency 
interrupts are encountered. 

jmp pdisp ; MP/M dispatch 



Disk I/O Drivers 
Disk Port Equates 



0080 = 


cmdl 


equ 


80h 


0080 = 


stat 


equ 


80h 


0081 = 


haddr 


equ 


81h 


0082 = 


laddr 


equ 


82h 


0083 = 


cmd2 


equ 


83h 



02CA CDDA0 3 



02CD 3600 
02CF DB80 
02D1 E604 
02D3 C8 



home: ; move to the track oO position of current driv 

call headload 
; h,l point to word with track for selected disk 
homel : 

mvi m,00 ;set current track ptr back to 

in stat ;read fdc status 

ani 4 ;test track bit 

rz ; return if at 
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02D4 37 
02D5 CDC203 
02D8 C3CD02 



02DB 210000 
02DE 79 
02DF FE02 
02E1 DO 

02E2 AF 
02E3 323A04 
02E6 79 
02E7 E607 
02E9 323904 
02EC 4F 

02ED 3A3C04 
02F0 E6F0 
02F2 Bl 
02F3 F608 
02F5 323C04 

02F8 69 
02F9 29 
02FA 29 
02FB 29 
02FC 29 
02FD 113F04 

0300 19 

0301 226E04 
0304 C9 



30 5 CDDA0 3 



0313 3E14 



seldsk 



stc ;direction=out 

call step ;step one track 
jmp homel ;loop 



;drive number in c 

lxi h,0 ;0000 in hi produces select er 



a ,c 



;a is disk number 



ndisks 



mov 

cpi ndisks ;less than ndisks? 
rnc jreturn with HL = 0000 if not 

;make sure dummy is (for use in double add to h,l) 
xra a 



;get only disk select bits 



;set up the second command port 

Ida port 

ani OfOh 

or a c 

ori 08h 

sta port 
; proper disk number, return dpb element address 



sta 


dummy 


mov 


a ,c 


ani 


07h 


sta 


diskno 


mov 


c ,a 



;clear out old disk select bit 
;put in new disk select bits 
; force double density 



mov 


1, 


c 




dad 


h 




•*2 


dad 


h 




;*4 


dad 


h 




■*8 


dad 


h 




;*16 


lxi 


d, 


dpbase 




dad 


d 


i 


HL=.dpb 


shld 


tran , 


translate table base 


ret 









settrk: ;set track given by register c 

call headload 
;h,l reference correct track indicator according to 
/selected disk 

;desired track 

;we are already on the track 

;step track-carry has directio 
;step will update trk indicato 

*x 

;have stepped enough 

seekrt: 

;need 10 msec delay for final step time and head settl 

mv i a , 2 d 
; call delay 
; ret ;end of settrk routine 



0308 


79 




mov 


a ,c 


0309 


BE 




cmp 


m 


030A 


C8 


settkx: 


rz 




030B 


CDC203 




call 


step 


030E 


79 




mov 


a ,c 


030F 


BE 




cmp 


m 


0310 


C20B03 




jnz 


sett 



;are we where we want to be 



settkx ;not yet 
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delay: ;delay for c[A] X .5 milliseconds 

0315 C5 push b 

delay 1: 

0316 0E86 mvi c,dlycnst /constant adjusted to .5 ms 

delay2: 

0318 0D dcr c 

0319 C21803 jnz delay2 
031C 3D dcr a 
031D C21603 jnz delayl 

0320 CI pop b 

0321 C9 ret ;end of delay routine 

} 

setsec: ;set sector given by register c 

0322 0C inr c 

0323 79 mov a,c 

0324 323604 sta sector 

0327 C9 ret 

7 

sectran: 

; sector number in c 

/translate logical to physical sector 

0328 2A6E04 lhld tran ;hl=. . translate 
032B 5E mov e,m ; E=low( . translate) 
032C 23 inx h 

032D 56 mov d,m ;DE=. translate 

032E 7B mov a,e ;zero? 

032F B2 ora d ;00 or 00 = 00 

0330 2600 mvi h,0 

0332 69 mov l,c ; HL = untranslated sector 

0333 C8 rz ;skip if so 

0334 EB xchg 

0335 42 mov b,d ;BC=00ss 

0336 09 dad b ; HL=. translate (sector) 

0337 6E mov 1 ,m 

0338 62 mov h,d ; HL=translate (sector) 

0339 C9 ret 

} 

setdma: ;set dma address given by registers b and c 

033A 69 mov l,c ;low order address 

033B 60 mov h,b ;high order address 

033C 223704 shld dmaad ; save the address 

033F C9 ret 



read: /perform read operation. 

/this is similar to write, so set up read 
/ command and use common code in write 
0340 0640 mvi b,040h /set read flag 

0342 C34703 jmp waitio /to perform the actual I/O 

write: /perform a write operation 
0345 0680 mvi b,080h /set write command 
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0347 
0349 



034C 
034D 

0350 
0351 



3E0A 
323B04 



C5 
CDDA0 3 



CI 
4E 



0352 3E27 

0354 B9 

0355 DA5C03 

0358 3E10 
035A BO 
035B 47 



035C 
035F 
0360 



2A3704 

C5 

2B 



0361 5E 



waitio : 
enter here from read and write to perform the actual 
I/O operation. return a OOh in register a if the 
operation completes properly, and Olh if an error 
occurs during the read or write 

in this case, the disk number saved in 'diskno' 

the track number in 'track' 

the sector number in 'sector' 

the dma address in 'dmaad' 

;b still has r/w flag 

;set error count 

;retry some failures 10 times 

;before giving up 



mvi 
sta 



a,10d 
errors 



tryagn: 



push 
call 



headload 
;h,l point to track byte for selected disk 

pop b 

mov c,m 
; decide whether to allow disk write precompenstation 

mvi a,39d /inhibit precomp on trks 0-39 

cmp c 

jc allowit 
; inhibit precomp 



allowit 



mvi 
ora 
mov 



lhld 
push 
dcx 

mov 



a,10h 

b 

b,a 



dmaad 

b 

h 

e ,m 



;goes out on the same port 
; as read/write 

get buffer address 
b has r/w code c has track 
save and replace 3 bytes belo 
buf with trk,sctr,adr mark 



/figure correct address mark 



0362 


3A3C04 






Ida 


port 


0365 


E608 






ani 


08h 


0367 


3EFB 






mvi 


a,0fbh 


0369 


CA6E03 






jz 


sin 


036C 


E60F 


sin 




ani 


Ofh 


036E 


77 






mov 


m,a 






;fi 


11 


in sector 




036F 


2B 






dcx 


h 


0370 


56 






mov 


d ,m 


0371 


3A3604 






Ida 


sector 


0374 


77 






mov 


m, a 






;fi 


11 


in track 





was double 

Obh is double density 

Ofbh is single density 



;note that invalid sector numb 
/will result in head unloaded 
/error, so dont check 
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0375 2B 

0376 CI 

0377 79 

0378 4E 

0379 77 
037A 7C 
037B D381 
037D 7D 
037E D382 

0380 78 

0381 D380 



0383 C5 

0384 D5 

0385 E5 

0386 0E84 
0388 1E05 
038A CD5500 

038D El 
038E Dl 
038F CI 

0390 71 

0391 23 

0392 72 

0393 23 

0394 73 

0395 DB80 
0397 E6F0 
0399 C8 



039A F5 



039B 
039E 
039F 



213B04 

35 

C2A603 



03A2 Fl 



03A3 


3E01 


3A5 


C9 


03A6 


Fl 


3A7 


E6E0 


3A9 


C24C03 



03AC C5 



rwwait: 



dcx 
pop 
mov 
mov 
mov 
mov 
out 
mov 
out 
mov 
out 



push 
push 
push 

mvi 
mvi 
call 

pop 

pop 

pop 

mov 

inx 

mov 

inx 

mov 

in 

ani 

rz 



h 

b 

a,<c 

c,m 

m, a 

a,h 

haddr 

a ,1 

laddr 

a ,b 

cmdl 



/set up fdc dma address 
;high byte 

;low byte 

;get r/w flag 

;start disk read/write 



c,f lagwai t 

e,5 

xdos 



; wait for disk intrpt 



h 

d 

b 

m,c 

h 

m,d 

h 

m,e 

stat 

OfOh 



/restore 3 bytes below buf 

;test for errors 

;a will be if no errors 



3 AD 
03B0 



113204 
2A3904 



; error from disk 

push psw ;save error condition 
;check for 10 errors 

lxi h, errors 

dcr m 

jnz redo ;not ten yet. do a retry 
;we have too many errors, print out hex number for las 
/received error type, cpm will print perm error messag 

pop psw ;get code 
;set error return for operating system 

mv i a , 1 

ret 
redo : 
;b still has read/write flag 

pop psw ;get error code 

ani OeOh ;retry if not track error 

jnz tryagn ; 
;was a track error so need to reseek 

push b ;save read/write indicator 
/figure out the desired track 

lxi d, track 

lhld diskno /selected disk 
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03B3 


19 


dad 


d 


03B4 


7E 


mov 


a ,m 


03B5 


F5 


push 


psw 


03B6 


CDCA0 2 


call 


home 


03B9 


Fl 


pop 


psw 


03BA 


4F 


mov 


c,a 


03BB 


CD0503 


call 


settrk 


03BE 


CI 


pop 


b 


03BF 


C34C03 


jmp 


tryagn 



03C2 DAD503 
03C5 34 
03C6 3E04 

03C8 F602 
03CA D380 
03CC E6FD 
03CE D380 



03D0 3E10 
03D2 C31503 



03D5 35 
03D6 AF 
03D7 C3C803 



03DA 213D04 
03DD 46 
03DE 2B 
03DF 7E 
03E0 23 
03E1 77 

03E2 F610 

03E4 D383 
03E6 E6EF 

03E8 113204 
03EB 2A3904 
03EE 19 



;point to correct trk indicato 
;desired track 
;save it 



;get read/write indicator 



step: ;step head out towards zero 

;if carry is set; else 
;step in 

; h,l point to correct track indicator word 



dostep: 



outx 



DC 


outx 


inr 


m 


mvi 


a,04h 


ori 


2 


out 


cmdl 


ani 


Ofdh 


out 


cmdl 


-2 had 


a stepp 


e time 


out 


mvi 


a,16d 


jmp 


delay 


ret 




dcr 


m 


xra 


a 


jmp 


dostep 



/increment current track byte 
;set direction = in 



;pulse step bit 



;turn off pulse 
eady line, the : 

; delay 8 ms 



; update track byte 



headload: 

;select and load the head on the correct drive 
lxi h,prtout ;old sleet info 



;new select info 



mov 


b,m 


dcx 


h 


mov 


a ,m 


inx 


h 


mov 


m, a 



on 

out 
ani 



lOh 

cmd2 
Oefh 



; enable interrupt 
/select the drive 



;set up h.l to point to track byte for selected disk 

lxi d, track 

lhld diskno 

dad d 
;now check for needing a 35 ms delay 

;if we have changed drives or if the head is unloaded 
;we need to wait 35 ms for head settle 
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03EF B8 
03F0 C2F803 



03F3 DB80 
03F5 E680 
03F7 C8 

03F8 AF 
03F9 D380 
03FB 3E46 
03FD C31503 



cmp b ;are we on the same drive 

jnz needdly 
;we are on the same drive 
;is the head loaded? 



needdly: 



in 

ani 

rz 

xra 
out 
mvi 
jmp 
ret 



stat 
80h 



a 

cmdl 
a,70d 
delay 



; already loaded 



;load the head 



BIOS Data Segment 



0400 3C 



0401 
040B 
0415 
041F 

0429 
042B 
042D 
042F 



C7C7C7C7C7 
C7C7C7C7C7 
C7C7C7C7C7 
C7C7C7C7C7 

0000 
0000 
0000 
00 



0430 44 



0431 00 



cnt60: db 
intstk: 

dw 

dw 

dw 

dw 

lstintstk: 

svdhl : dw 

svdsp: dw 

svdret: dw 

tickn: db 

if 

intmsk: db 

else 
intmsk: db 

endif 
preemp: db 



scrat: 

0432 00 track: db 

0433 00 trakl: db 

0434 00 trak2: db 

0435 00 trak3: db 

0436 00 sector: db 

0437 0000 dmaad: dw 
0439 00 diskno: db 
043A 00 dummy: db 
043B 00 errors: db 
043C 00 port: db 
043D 00 prtout: db 
043E 00 dnsty: db 

disks 

043F+= DPBASE EQU 

043F+00000000 DPE0 : DW 

0443+00000000 DW 

0447+70045F04 DW 

044B+1005F004 DW 



60 ; 60 tick cntr = 1 sec 

; local intrpt stk 
0c7c7h,0c7c7h,0c7c7h,0c7c7h,0c7c7h 
0c7c7h,0c7c7h,0c7c7h,0c7c7h,0c7c7h 
0c7c7h,0c7c7h,0c7c7h,0c7c7h,0c7c7h 
0c7c7h,0c7c7h,0c7c7h / 0c7c7h,0c7c7h 











debug 

44h 

54h 



; saved Regs HL during int hnd 

; saved SP during int hndl 

; saved return during int hndl 

; ticking boolean f true = delay 

; intrpt msk, enables elk intr 

; intrpt msk, enables elk intr 

; preempted boolean 

; start of scratch area 

; current trk on drive 

; current trk on drive 1 



currently selected sctr 
current dma address 
current disk number 
must be for dbl add 



2 

$ ;BASE OF DISK PARAMETER BLOCKS 
XLT0,0000H ; TRANSLATE TABLE 
0000H,0000H ; SCRATCH AREA 
DIRBUF,DPB0 ;DIR BUFF, P ARM BLOCK 
CSV0,ALV0 ; CHECK, ALLOC VECTORS 
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044F+00000000 

0453+00000000 

0457+70045F04 

045B+50053005 

0800 = 

0010 = 

00FF = 

045F+= 

045F+3A00 

0461+04 

0462+OF 

0463+00 

0464+FF00 

0466+7F00 

0468+CO 

0469+00 

046A+2000 

046C+0200 

0000+= 

045F+= 
0020+= 
0020+= 
0000+= 

046E 



0470+= 

0470+ 

04F0+ 

0510+ 

0530+ 

0550+ 

0570+= 

0100+= 

0570+00 

0571 00 

0572 



DPE1 



bpb 
rpb 
maxb 

DPBO 



XLT0 

DPB1 
ALS1 
CSS1 
XLT1 

• 

tran: 



BEGDAT 

DIRBUF: 

ALV0: 

CSVO: 

ALV1: 

CSV1: 

ENDDAT 

DATS I Z 

FORCE : 



DW 

DW 

DW 

DW 

equ 

equ 

equ 

diskdef 

EQU 

DW 

DB 

DB 

DB 

DW 

DW 

DB 

DB 

DW 

DW 

EQU 

diskdef 

EQU 

EQU 

EQU 

EQU 

ds 

endef 

EQU 

DS 

DS 

DS 

DS 

DS 

EQU 

EQU 

DB 

db 

end 



XLT1,0000H ; TRANSLATE TABLE 

0000H,0000H ; SCRATCH AREA 

DIRBUF r DPBl ;DIR BUFF,PARM BLOCK 

CSV1,ALV1 ; CHECK, ALLOC VECTORS 

2*1024 ; bytes per block 

bpb/128 ; records per block 

255 ;max block number 

0,1,58,, bpb ,maxb+l , 128 ,128,2,0 

$ ;DISK PARM BLOCK 

58 ;SEC PER TRACK 

4 ; BLOCK SHIFT 

15 ; BLOCK MASK 

;EXTNT MASK 

255 ;DISK SIZE-1 

127 ; DIRECTORY MAX 

192 ; ALLOC 

; ALLOC 1 

32 ; CHECK SIZE 

2 ; OFFSET 

;NO XLATE TABLE 

1,0 

DPBO ; EQUIVALENT PARAMETERS 

ALSO ;SAME ALLOCATION VECTOR SIZE 

CSS0 ;SAME CHECKSUM VECTOR SIZE 

XLT0 ;SAME TRANSLATE TABLE 



$ 

128 

32 

32 

32 

32 

$ 

$ -BEGDAT 





; DIRECTORY ACCESS BUFFER 



; FORCE OUT LAST BYTE IN HEX FI 
; force out last byte in hex fi 
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page 

TITLE 'XIOS200, Copyright 1980, ALTOS COMPUTER SY 



ALTOS COMPUTER SYSTEMS 

2360 BERING DRIVE 

SAN JOSE, CALIFORNIA 95131 

Copyright 1980, ALTOS COMPUTER SYSTEMS 

This program is a copyright program product of 
ALTOS COMPUTER SYSTEMS and is distributed to the 
owners of ALTOS SUN SERIES 8000 computers for 
use on those systems only. Any other use of this 
software constitutes a breach of the copyright 
license to the purchaser. However, permission is 
granted to use this listing as a sample for the 
construction of the reader's own XIOS. 

VERSION NUMBER: 1.12* 

VERSION DATE: June 28, 1980 

Add support for CP/M version 2.0 

Add support for Hard disk drives 

Add support for disk MODE selection 

Provide compatability MODE for 1.4 operatio 

Remove CTC/1791 counter reset 

CORRECT HARD DISK SEEK PROBLEM 

Add code to recover from WD1791 going to si 

Initialize parallel port for Centronics pri 

VERSION DATE: March 17, 1981 

Virtual disk in banks 1,2,3: M DISK !; 

VERSION DATE: April 11, 1981 

Conditional assembly for virtual disks 
Conditional assembly for MP/M 2.0 

VERSION DATE: April 14, 1981 

Equates added for LDRBIOS hooks ! 

VERSION DATE: April 16, 1981 

Testing for bank setup added 



Mode 
1 



IBM single density 

ALTOS double density Version 2.0 
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2 


ALTOS 


double density Version 1.4 


3 


ALTOS 


hard disk Version 2.0 (8 MEG 


4 


ALTOS 


HARD DISK VERSION 2.0 (8 MEG 


5 


ALTOS 


HARD DISK VERSION 2.0 (8 MEG 


6 


ALTOS 


HARD DISK VERSION 2.0 (4 MEG 



ASSEMBLER CONTROL STATEMENTS 



FFFF 
0000 

0000 
FFFF 





MACLIB 
MACLIB 


DISKDEF 
Z80S 


TRUE 
FALSE 


EQU 
EQU 


0FFFFH 
NOT TRUE 


mdisk 
mpm20 


equ 
equ 


false 
true 



; VALUE FOR TRUE 
; VALUE FOR FALSE 

;Virtual Disk cond asm bool 
;MP/M 2.0 cond asm boolean 



1700 = 

0037 = 
00BB = 



ldrbiosbase equ 1700h 



for M 



density$mask$of fset equ 37h ;density mask offset from LDRBI 
misc$params$off set equ Obbh ;misc. parameters offset from L 



FFFF = 
FFFF = 



THE FOLLOWING EQUATES ARE USER MODIFIABLE BASED ON 
PARTICULAR USER SYSTEM AND OPTIONS SELECTED. 



DMA EQU TRUE 
HARDSK EQU TRUE 



;DMA HARDWARE SUPPORT ?? 
;HARD DISK SUPPORT 



4000 
0400 
0010 
0008 
0080 
0007 
0003 



THE FOLLOWING CONSTANTS APPLY TO THE DEBLOCKING OF 
SECTORS LARGER THAN 128 FOR THE ALTOS DOUBLE DENSIT 
AND THE ALTOS HARD DISK. 



BLKSIZ 


EQU 


16384 


HSTSIZ 


EQU 


1024 


HSTSPT 


EQU 


16 


HSTBLK 


EQU 


HSTSIZ/128 


CPMSPT 


EQU 


HSTBLK * HSTSPT 


SECMSK 


EQU 


HSTBLK - 1 


SECSHF 


EQU 


3 



CP/M ALLOCATION SIZE 
HOST DISK SECTOR SIZE 
HOST DISK SECTORS PER TRAC 
CP/M SECTORS PER HOST BUFF 
CP/M SECTORS PER TRACK 
SECTOR MASK 
LOG2 (HHSTBLK) 
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PAGE 



FFFF = 



RELOC 



THE FOLLOWING EQUATES APPLY TO THE RELOCATABILITY 
OF THE CBIOS AND SHOULD NOT BE USER ALTERED. 



EQU 



TRUE 



; RELOCATABLE VERSION ?? 



000C = 



0000 



0000 = 



0000 
0001 
0002 



0004 

0083 
0084 
0085 

0005 
0006 

0000 
0001 
0002 
0003 
0004 
0005 
0006 





if 


mdisk 


maxdsk 


equ 
else 


13 




IF 


HARDSK 


MAXDSK 


EQU 
ELSE 


12 


MAXDSK 


EQU 

ENDIF 

endif 


4 




IF 


RELOC 




ORG 


0000H 




ELSE 






ORG 


0C000H 




ENDIF 




BASE 


EQU 


$ 


WRALL 


EQU 





WRDIR 


EQU 


1 


WRUAL 


EQU 


2 


NMBCNS 


EQU 


4 


POLL 


EQU 


131 


FLAGWT 


EQU 


132 


FLAGST 


EQU 


133 


HDFLAG 


EQU 


5 


FPYFLAG 


EQU 


6 


PLLPT 


EQU 





PLCO0 


EQU 


PLLPT+1 


PLCOl 


EQU 


PLCO0+1 


PLC02 


EQU 


PLCOl+1 


PLC03 


EQU 


PLC02+1 


PLC 10 


EQU 


PLC03+1 


PLCI1 


EQU 


PLCI0+1 



; MAXIMUM NUMBER OF LOGICAL 
; MAXIMUM NUMBER OF LOGICAL 



; WRITE TO ALLOCATED 
; WRITE TO DIRECTORY 
; WRITE TO UNALLOCATED 



NUMBER OF CONSOLES 

XDOS POLL FUNCTION 
XDOS FLAG WAIT FUNCTION 
XDOS FLAG SET FUNCTION 

;HARD DISK FLAG FOR WAIT & SET 
; FLOPPY DISK FLAG FOR WAIT & SET 

POLL PRINTER 

POLL CONSOLE OUT #0 (CRT:) 

POLL CONSOLE OUT #1 (CRT:) 

POLL CONSOLE OUT #2 (CRT:) 

POLL CONSOLE OUT #3 (CRT:) 

POLL CONSOLE IN #0 (CRT:) 

POLL CONSOLE IN #1 (CRT:) 
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0007 


.= 


PLGI2 


EQU 


PLCI1+1 


0008 


= 


PLCI3 


EQU 


PLCI2+1 


0009 


= 


MEMPORT 


EQU 


009H 


0002 


= 


MEMSK 


EQU 


002H 



POLL CONSOLE IN #2 (CRT:) 
POLL CONSOLE IN #3 (CRT:) 

MEMORY SELECT PORT 
MEMORY SELECT MASK 



PAGE 



JUMP VECTORS FOR ENTRIES TO CBIOS ROUTINES 



EXTERNAL JUMP TABLE (BELOW XIOS BASE) 



;PDISP EQU 
; XDOS EQU 



0000 C3040B 



0003 C3150B 
0006 C3790B 
0009 C3840B 
000C C38F0B 
000F C3A90C 



0012 


C31A0B 


0015 


C31A0B 


0018 


C3F902 


001B 


C30302 


001E 


C36D02 


0021 


C37302 


0024 


C35502 


0027 


C38B02 


002A 


C39602 


002D 


C3BC0C 


0030 


C3D605 



0033 C3E90C 
0036 C3CB0C 
0039 C3050D 
003C C30B0D 
003F C3100D 
0042 C3170D 



WBOTE : 



if 

jmp 

else 

JMP 

endif 

JMP 
JMP 
JMP 
JMP 
JMP 



$-3 
PDISP-3 

mpm20 
commonbase 

COLDSTART 



WARMSTART 
CONST 
CON IN 
CONOUT 
LIST 



JMP 


RTNEMPTY 


JMP 


RTNEMPTY 


JMP 


HOME IT 


JMP 


SELDSK 


JMP 


SETTRK 


JMP 


SETSEC 


JMP 


SETDMA 


JMP 


READ 


JMP 


WRITE 


JMP 


POLLPT 


JMP 


SECTRAN 



;COLD START 



WARM START 
CONSOLE STATUS 
CONSOLE CHARACTER IN 
CONSOLE CHARACTER OUT 
LIST CHARACTER OUT - THIS 
"CLIST" IF SETUP PROGRAM 
PARALLEL, PRINTER PORT 

PUNCH NOT IMPLEMENTED 

READER NOT IMPLEMENTED 

MOVE HEAD TO HOME 

SELECT DISK 

SET TRACK NUMBER 

SET SECTOR NUMBER 

SET DMA ADDRESS 

READ DISK 

WRITE DISK 

LIST STATUS 

SECTOR TRANSLATE 



EXTENDED I/O SYSTEM JUMP VECTOR 



JMP 


SELMEMORY 


-, SELECT MEMORY 


JMP 


POLLDEVICE j 


• POLL DEVICE 


JMP 


STARTCLOCK 


; START CLOCK 


JMP 


STOPCLOCK 


} STOP CLOCK 


JMP 


EXITREGION 


- r EXIT REGION 


JMP 


MAXCONSOLE 


? MAXIMUM CONSOLE NUMBER 
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0045 


C39D12 


JMP 


SYSTEMINI 


0048 


00 


NOP 




0049 


00 


NOP 




004A 


00 


NOP 




004B 


C3A102 


JMP 


SETMOD 


004E 


C3EE02 


JMP 


RETMOD 






if 


not mpm20 






COLDSTART: 








WARMSTART : 








MVI 


C,0 



JMP 



RTNEMPTY : 



LAST: 



005E 



XRA 
RET 
endif 



ORG 



XDOS 



A 



SYSTEM INITIALIZATION 
NO JMP HERE 
FOR MP/M DELAY 



; ROUTINE TO SET DISK MODE 
; ROUTINE TO RETURN CURRENT 



SEE SYSTEM IN IT 
COLD & WARM START INCLUDE 
FOR COMPATIBILITY WITH CP 
SYSTEM RESET, TERMINATE P 



NOT USED 





INTERUPT : 




005E 470B 


DW 


FLOPPY$INT 


0060 1C0B 


DW 


NULL$INT 


0062 1C0B 


DW 


NULL $ INT 


0064 1C0B 


DW 


NULL$INT 


0066 1A0D 


DW 


INT1HND 


0068 1C0B 


DW 


NULL$INT 


006A 5E0B 


DW 


HARD$INT 


006C 1C0B 


DW 


NULL$INT 


006E 1C0B 


DW 


NULL $ INT 




if 


not mpm20 




NULL$INT: 






EI 






RET I 






endif 





(( (LAST-BASE) +0A2H) AND 0FF00H) +05EH 

FLOPPY DISK INTERR 

CTC INTERRUPT 
HARD DISK INTERRUP 



PAGE 



WORK AND CONTROL AREAS FOR CBIOS SERVICES 



0070 FFFFFFFFFFTRKO: DB 



0FFH , 0FFH , 0FFH , 0FFH , 0FFH , 0FFH , 0FFH , 0FFH , OFF 
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007C 0408102010SEL0 
0088 0000000003MODE 
0094 0000000000TCNT 
00A0 0000000000PCNT 



OOAC 00 
OOAD 00 
OOAE 00 
OOAF 0000 
00B1 00 
00B2 0000 
00B4 0000 
00B6 0000 
00B8 10 
00B9 20 



OOBA G37D 
OOBC 0000 
OOBE 0004 



DISKNO 

TRAKNO 

HEADNO 

DMAADR 

SECTNO 

DPEPTR 

DBLKAD 

MPARMS 

HTK1: 

HTK2: 



DB 
DB 
DB 
DB 

DB 
DB 
DB 
DW 
DB 
DW 
DW 
DW 
DB 
DB 



004H,008H,010H,020H,010H,010H,010H,020H,020 
000H,000H,000H,000H,003H,004H,005H,003H,004 
000H,000H,000H,000H,000H,000H,000H,000H,000 
000H,000H,000H,000H,000H,000H,000H,000H,000 



00 OH 

000H 

000H 

000H 

000H 

000H 

000H 

000H 

10H 

20H 



CURRENT DR 
CURRENT TR 
CURRENT HE 
CURRENT DM 
CURRENT SE 
CURRENT DP 
CURRENT EX 
MISC. PARA 
HARD DISK 
HARD DISK 



PARAMETER FLAGS 



010 OH = DOUBLE HEADED DRIVES 

0200H = CENTRONICS PRINTER FOR LIST DEVICE 

0400H = FOUR DRIVE SYSTEM [ A B C D ] 



NOTE: 

NO CHANGES ARE TO BE MADE TO THE ABSOLUTE LOCATIONS 
ANY FIELDS PRIOR TO THIS POINT. EXTERNAL PROGRAMS A 
DEPENDENT UPON THE LOCATION OF THE PRECEEDING DATA. 



NMIRTN : 



DMAS1: 
DMASA: 
DMALEN : 



00C0 54CE68CEA5DMAS2H: 

00C6 14288507 DMAS2F: 

OOCA 8ACF01CF DMAS3: 
OOCE 01 DMAS3F; 
OOCF CF87 



IF 
DB 
ENDIF 

DB 
DW 
DW 

DB 

DB 

DB 
DB 
DB 

PAGE 



NOT DMA 
0EDH,0A2H,0EDH,045H 



0C3H,07DH 

000H 

1025-1 

054H,0CEH,068H,0CEH,0A5H,020H 

014H,028H,085H,007H 

8 AH , OCFH , 1H , OCFH 

001H 

0CFH,087H 



;FAKE INI A 

; FIRST PART 
; ADDRESS FO 
; LENGTH FOR 

;HARD DISK 

; FLOPPY DIS 

;LAST PART 
;001=READ, 
; SETUP DMA, 



CONTROL BLOCKS FOR DISK DRIVER 
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00D1 = 



DPBASE EQU 



00D1 


B5010000 


DPEO: 


DW 


XLT0,0000H 


00D5 


00000000 




DW 


0000H,0000H 


00D9 


9D12D40D 




DW 


DIRBUF,DPBO 


OODD 


3E081E08 




DW 


CSV0,ALV0 


00E1 


B5010000 


DPE1: 


DW 


XLT0 r 0000H 


00E5 


00000000 




DW 


0000H f 0000H 


00E9 


9D12D40D 




DW 


DIRBUF f DPBO 


OOED 


7E085E08 




DW 


CSV1,ALV1 


00F1 


B5010000 


DPE2: 


DW 


XLT0,G000H 


00F5 


00000000 




DW 


0000H,0000H 


00F9 


9D12D40D 




DW 


DIRBUF r DPBO 


OOFD 


BE089E08 




DW 


CSV2,ALV2 


0101 


B5010000 


DPE3: 


DW 


XLT0,0000H 


0105 


00000000 




DW 


0000H,0000H 


0109 


9D12D40D 




DW 


DIRBUF r DPBO 


010D 


FE08DE08 




DW 
IF 


CSV3,ALV3 
HARDSK 


0111 


00000000 


DPE4: 


DW 


0000H,0000H 


0115 


00000000 




DW 


0000H,0000H 


0119 


9D12010E 




DW 


DIRBUF,DPB3 


011D 


5E091E09 




DW 


CSV4,ALV4 


0121 


00000000 


DPE5: 


DW 


0000H,0000H 


0125 


00000000 




DW 


0000H,0000H 


0129 


9D12100E 




DW 


DIRBUF,DPB4 


012D 


9E095E09 




DW 


CSV5,ALV5 


0131 


00000000 


DPE6: 


DW 


00O0H,O000H 


0135 


00000000 




DW 


0000H,0000H 


0139 


9D121F0E 




DW 


DIRBUF,DPB5 


013D 


DE099E09 




DW 


CSV6,ALV6 


0141 


00000000 


DPE7: 


DW 


0000H,0000H 


0145 


00000000 




DW 


0000H,0000H 


0149 


9D12010E 




DW 


DIRBUF,DPB3 


014D 


1E0ADE09 




DW 


CSV7,ALV7 


0151 


00000000 


DPE8: 


DW 


0000H,Q000H 


0155 


00000000 




DW 


0000H,0000H 


0159 


9D12100E 




DW 


DIRBUF,DPB4 


015D 


5E0A1E0A 




DW 


CSV8,ALV8 


0161 


00000000 


DPE9: 


DW 


0000H,0000H 


0165 


00000000 




DW 


0000H,0000H 


0169 


9D121F0E 




DW 


DIRBUF,DPB5 


016D 


9E0A5E0A 




DW 


CSV9,ALV9 



; START OF DISK PARAMETER BL 

; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 

; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 

; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 

; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 



; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 

; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 

TRANSLATE TABLE AND WORK A 
SCRATCH AREA 
DIR BUFF, PARM BLOCK 
CHECK VECTOR, ALLOC VECTOR 

; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 

; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 

TRANSLATE TABLE AND WORK A 
SCRATCH AREA 
DIR BUFF, PARM BLOCK 
CHECK VECTOR, ALLOC VECTOR 
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0171 00000000 
0175 00000000 
0179 9D122E0E 
017D C20A9E0A 

0181 00000000 
0185 00000000 
0189 9D122E0E 
018D E60AC20A 



DPEA: 



DPEB: 



END IF 



DPEC: 



DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 



if 



0000H r 0000H 
0000H,0000H 
DIRBUF,DPB6 
CSVA,ALVA 

0000H,0000H 
0000H f 0000H 
DIRBUF,DPB6 
CSVB f ALVB 



TRANSLATE TABLE AND WORK A 
SCRATCH AREA 
DIR BUFF, PARM BLOCK 
CHECK VECTOR, ALLOC VECTOR 

; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 



mdisk 

Virtual disk parameter header 



DW 


0000H,0000H 


DW 


0000H,0000H 


DW 


DIRBUF,DPB7 


DW 


CSVC,ALVC 


endif 





; TRANSLATE TABLE AND WORK A 

; SCRATCH AREA 

;DIR BUFF, PARM BLOCK 

; CHECK VECTOR, ALLOC VECTOR 



0191 B5010000 
0195 00000000 
0199 9D12D40D 

019D CF010000 
01A1 00000000 
01A5 9D12E30D 

01A9 CF010000 
01AD 00000000 
01B1 9D12F20D 



MODL0: DW XLT0,000H 

DW 000H,000H 

DW DIRBUF,DPB0 

MODL1: DW XLT1,0000H 

DW 0000H,0000H 

DW DIRBUF,DPB1 

MODL2: DW XLT2,0000H 

DW 0000H,0000H 

DW DIRBUF,DPB2 



MODEL DPE FOR MODE 



MODEL DPE FOR MODE 1 



MODEL DPE FOR MODE 2 



01B5 01070D1319XLT0 
01C2 02080E141A 



XLT1 
XLT2 



01CF 0102030405 
01DC 0E0F101112 
01E9 1B1C1D1E1F 
01F6 28292A2B2C 



DB 
DB 



DB 
DB 
DB 
DB 



1,7,13,19,25,5,11,17,23,3,9,15,21 
2,8,14,20,26,6,12,18,24,4,10,16,22 



01,02,03,04,05,06,07,08,09,10,11,12,13 
14,15,16,17,18,19,20,21,22,23,24,25,26 
27,28,29,30,31,32,33,34,35,36,37,38,39 
40,41,42,43,44,45,46,47,48,49,50,51,52 



PAGE 



DISK ACCESS ROUTINES 
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0203 


79 


SELDSK: 

MOV 


A,C 


0204 


FEOC 


CPI 


MAXDSK 






JRNC 


SELERR 


0206+303A 


DB 


030H,SELERR-$-l 






MOV 


A,E 






AN I 


1 






PUSH 


PSW 


0208 


1600 


MVI 


D,0 


020A 


59 


MOV 


E f C 


020B 


214602 


LXI 


H,DTBLT 


020E 


19 


DAD 


D 


020F 


4E 


MOV 


C,M 


0210 


79 


MOV 


A f C 






if 


mdisk 






CPI 


12 






JZ 


VIRTUAL 






endif 








POP 


PSW 






JRNZ 


SELSDP 






SETDSK: 




0211 


0600 


MVI 


B,0 


0213 


217C00 


LXI 


H r SEL0 


0216 


09 


DAD 


B 


0217 


7E 


MOV 


A,M 


0218 


A7 


ANA 


A 






JRZ 


SELERR 


0219+2827 


DB 


028H,SELERR-$-l 


021B 


79 


MOV 


A,C 


021C 


FE04 


CPI 


4 






JRC 


SELSDP 


021E+380F 


DB 


038H,SELSDP-$-l 


0220 


7E 


CHKHRD: MOV 


A,M 


0221 


D320 


OUT 


20H 


0223 


C5 


PUSH 


B 


0224 


0E01 


MVI 


c,i 


0226 


CD8207 


CALL 


DELAY 


0229 


CI 


POP 


B 


022A 


DB24 


IN 


24H 


022C 


17 


RAL 








JRNC 


SELERR 


022D+3013 


DB 


3 OH, SELERR- $-1 






SELSDP: 




022F 


79 


MOV 


A,C 






if 


mdisk 






VIRTUAL: 








endif 




0230 


32E60A 


STA 


NEWDSK 


0233 


2600 


MVI 


H,0 



LIMIT SELECT TO REAL OPTIO 

INVALID DRIVE 

FAKE JRNC INSTRUCTION 

TEST FOR INITIAL SELECT 
E = IS FIRST TIME 



TRANSLATE TABLE 
FOR LOGICAL TO PHYSICAL 

C = PHYSICAL DRIVE 
M translates to the 12 di 



RESTORE TEST 
BYPASS SELECT 



BASE OF SELECT MASKS 

GET SELECT BYTE 
CHECK FOR VALID DRIVE 
DRIVE NOT CONFIGURED 
FAKE JRZ INSTRUCTION 

CHECK FOR FLOPPY 

FAKE JRC INSTRUCTION 

RESTORE SELECT BYTE 



DELAY FOR 1 MS 



CHECK FOR HARD DISK READY 
8 OH = READY 

FAKE JRNC INSTRUCTION 



;SAVE FOR I/O LATER 
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0235 69 






MOV 


L,C 




•COMPUTE DP HEADER ADDRESS 


0236 29 






DAD 


H 




.* 2 


0237 29 






DAD 


H 




.* 4 


0238 29 






DAD 


H 




;* 8 


0239 29 






DAD 


H 




•* 16 (DP HEADER SIZE) 


023A 11D100 






LXI 


D,DPBASE 




'START OF DP HEADERS 


023D 19 






DAD 


D 




? POINT TO CORRECT ONE 


023E 22B200 






SHLD 


DPEPTR 




;SAVE ADDRESS OF CURRENT DP 


0241 C9 






RET 








0242 210000 


SELERR: 


LXI 


H,0 


i 


• INDICATE ERROR 


0245 C9 






RET 






; AND RETURN 



0246 0001020304DTBLT: DB 



A,B,C,D,E,F,G,H,I,J, K, L,M ,N f O 
0,1,2,3,4,5,6,7,8,9,10,11,12,0,0 







SETDMA: 






0255 


60 




MOV 


H,B 


0256 


69 




MOV 


L,C 


0257 


22AF00 




SHLD 
if 


DMAADR 
mpm20 


025A 


23 




inx 


h 


025B 


7D 




mov 


a,l 


025C 


B4 




or a 


h 


025D 


CO 




rnz 




025E 


21F00A 




lxi 


h,hstwrt 


0261 


7E 




mov 


a,m 


0262 


3600 




mvi 


m,0 


0264 


B7 




or a 


a 


0265 


C8 




rz 




0266 


CD6D04 




call 


writehst 


0269 


B7 




ora 


a 


026A 


C8 




rz 




026B 


El 




pop 
endif 


h 


026C 


C9 


SETTRK : 


ret 




026D 


60 




MOV 


H,B 


026E 


69 




MOV 


L,C 


026F 


22E70A 




SHLD 


NEWTRK 


0272 


C9 


SETSEC: 


RET 




0273 


79 




MOV 


A,C 


0274 


32E90A 




STA 


NEWSEC 


0277 


C9 


SETDEN: 


RET 




0278 


117C00 




LXI 


D,SEL0 


027B 


2AE60A 




LHLD 


NEWDSK 


027E 


2600 




MVI 


H,000H 



TO ALLOW SAVING 



;test for flush buffers 



?HL = FFFFh is flush buffer 



; flush host write if pendin 
; return if no error 



TO ALLOW SAVE 

SAVE NEXT TRACK NUMBER 
RETURN TO CALLER 



FOR SAVE 

RETURN TO CALLER 



; START OF SELECT/DENSITY MA 

;NEXT DRIVE ADDRESS 

; ENSURE ZERO FOR SINGLE BYT 
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0280 19 

0281 79 

0282 E601 

0284 4F 

0285 7E 

0286 E6FE 

0288 Bl 

0289 77 
028A C9 



DAD 
MOV 
AN I 
MOV 
MOV 
AN I 
ORA 
MOV 
RET 

if 
MREADSECTOR: 
call 
di 

call 
lxi 
lxi 
lhld 
ldir 
mvi 
out 
ei 
lxi 
lhld 
xchg 
lxi 
ldir 
xra 
ret 

mbankno 
addrof f 
localbuf 

compbank : 

Ida 
mov 
ani 
mov 
mov 
mvi 
ani 



mr 
sta 

dad 
dad 
dad 
mov 
mov 
dad 
dad 

Ida 



D 

A,C 

00000001B 

C,A 

A,M 

11111110B 

C 

M f A 



mdisk 

compbank 

chgbank 

b,128 

d, localbuf 

addrof f 

a,02h 
09h 

b,128 
dmaadr 

h, localbuf 

a 



db 
dw 
ds 



newtrk 

h,a 

Ofh 

l,a 

a,h 

h,0 

OfOh 



POINT TO CORRECT MASK 
ISOLATE DENSITY BIT 

SAVE FOR NOW 

LOAD SELECT DENSITY MASK 

RESET CURRENT DENSITY SETT 

SET NEW VALUE 

RESTORE MASK IN TABLE 

RETURN TO CALLER 



; compute bank 



; block move into the dma ar 
; select bank 





128 



; save track rem 16 
; restore track 

; bank is high order nibble 



rar ! rar 1 rar 1 rar 



a 
mbankno 

h 

h 

h 

e,l 

d,h 

d 

d 

newsec 



; which bank we want 

;trk 0-15 
; * 2 
; * 4 



; * 24: 

; figure offset within the 
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mov 

mvi 

dad 

dad 

shld 

ret 

end if 



READ: 



028B CDEE02 
028E FE03 
0290 DAE405 
0293 C36B03 



if 

LDA 

CPI 

JZ 

endif 

CALL 
CPI 
JC 
JMP 

if 
mwritesector: 
call 
lhld 
lxi 
lxi 
ldir 
di 

call 
lxi 
lxi 
lhld 
xchg 
ldir 
mvi 
out 
ei 
xra 
ret 



chgbank: 



WRITE: 



Ida 
ral 
ral 
ral 
ani 
ori 
out 
ret 
endif 



if 

Ida 

cpi 



e,a 

d,0 

d 

h ! dad h 

addroff 



; add sector offset within 
! dad hi dad h ! dad h ! dad h ! 
? (track * 24 + sector) * 1 



mdisk 

NEWDSK 

12 

MREADSECTOR 



RETMOD 
003H 

READSOFT 
READHARD 

mdisk 

compbank 
dmaadr 
d,localbuf 
b f 128 



chgbank 
d,localbuf 
b r 128 
addroff 



a,02h 
09h 



; VIRTUAL DISK ? 



WHAT TYPE OF I/O ?? 

FLOPPY DISK DRIVE.. 
?HARD DISK I/O 



; select bank 



mbankno 



018h 

memsk 

009h 



mdisk 

newdsk 

12 
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0296 CDEE02 
0299 FE03 
029B DAF205 
029E C37E03 



DZ 


mwntesec 


endif 




CALL 


RETMOD 


CPI 


003H 


JC 


WRITESOFT 


JMP 


WRITEHARD 



WHAT TYPE OF I/O ?? 

FLOPPY DISK 
HARD DISK I/O 
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ROUTINES TO SET AND RETURN THE CURRENT DRIVE MODE 





SETMOD : 




02A1 21E60A 


LXI 


H,NEWDSK 


02A4 7E 


MOV 


A,M 


02A5 F5 


PUSH 


PSW 


02A6 70 


MOV 


M,B 


02A7 C5 


PUSH 


B 




; MVI 


E,0 


02A8 48 


MOV 


C f B 


02A9 CD0302 


CALL 


SELDSK 


02AC CI 


POP 


B 


02AD 7C 


MOV 


A,H 


02AE B5 


ORA 


L 




JRZ 


SMERR 


02AF+2832 


DB 


028H,SMERR-$-l 


02B1 68 


MOV 


L,B 


02B2 2600 


MVI 


H,000H 


02B4 78 


MOV 


A,B 


02B5 FE04 


CPI 


004H 




JRNC 


SMERR 


02B7+302A 


DB 


030H,SMERR-$-l 


02B9 118800 


LXI 


D,MODE 


02BC 19 


DAD 


D 


02BD 71 


MOV 


M,C 


02BE E5 


PUSH 


H 


02BF 79 


MOV 


A,C 


02C0 B7 


ORA 


A 


02C1 0E00 


MVI 


C,000H 




JRZ 


SETSEL 


02C3+2802 


DB 


028H,SETSEL-$-l 


02C5 0E01 


MVI 


C,001H 


02C7 CD7802 


SETSEL: CALL 


SETDEN 


02CA El 


POP 


H 


02CB 6E 


MOV 


L,M 


02CC 2600 


MVI 


H,000H 


02CE 7D 


MOV 


A,L 


02CF 29 


DAD 


H 


02D0 29 


DAD 


H 


02D1 E5 


PUSH 


H 


02D2 29 


DAD 


H 



SAVE NEWDSK IN STACK 



INDICATE INITIAL SELECT 
CALL DISK SELECT 



CHECK FOR BAD SELECT 

YES - ABORT CHANGING 

FAKE JRZ INSTRUCTION 

B AND L = DRIVE # 

CHECK MODE SET VALIDITY 
ONLY VALID FOR FLOPPY DISK 
INVALID DRIVE FOR MODE SET 

FAKE JRNC INSTRUCTION 

START OF MODE BYTES 

SAVE NEW MODE BYTE 
SAVE MODE BYTE ADDRESS 
SETUP FOR DENSITY CHANGE 

ASSUME SINGLE DENSITY MODE 
VERIFY ASSUMPTION 

FAKE JRZ INSTRUCTION 

SET FOR DOUBLE DENSITY MOD 

SET DENSITY BASED ON LOW B 

RESTORE 

PICKUP MODE AGAIN 

FOR SINGLE BYTE PRECISION 

SAVE MODE IN ACCUMULATOR F 

* 2 

* 4 
SAVE * 4 

* 8 
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02D3 


Dl 






POP 


D 


} REGAIN * 4 


02D4 


19 






DAD 


D 


}*• 12 


02D5 


119101 






LXI 


D,MODL0 


} FIRST MODEL DPE 


02D8 


19 






DAD 


D 


- r POINT TO THIS ONE 


02D9 


EB 






XCHG 




; SETUP TEMPORARILY AS DESTI 


02DA 


2AB200 






LHLD 


DPEPTR 


; ADDRESS OF CURRENTLY SELEC 


02DD 


EB 






XCHG 




;SETUP TO ALTER 


02DE 


010C00 






LXI 
LDIR 


B,12 


} LENGTH FOR MOVE 
;DO MOVE 


02E1+EDB0 






DB 


0EDH,0B0H 


. FAKE LDIR INSTRUCTION 


02E3 


Fl 


SMERR: 


POP 


PSW 




02E4 


E5 






PUSH 


H ' ' , 




02E5 


32E60A 






STA 


NEWDSK 


\ RESTORE ORIGINAL NEWDSK 


02E8 


4F 






MOV 


C,A j 




02E9 


CD0302 






CALL 


SELDSK ; 




02EC 


El 






POP 


H J 




02ED 


C9 






RET 




'RETURN TO CALLER 






RETMOD: 








02EE 


118800 






LXI 


D,MODE j 


START OF MODE BYTES 


02F1 


2AE60A 






LHLD 


NEWDSK j 


NEXT DRIVE FOR I/O 


02F4 


2600 






MVI 


H,000H ; 


RESET FOR SINGLE BYTE QUAN 


02F6 


19 






DAD 


D J 


POINT TO IT 


02F7 


7E 






MOV 


A,M j 


LOAD IT FOR CALLER 


02F8 


C9 






RET 


< 


RETURN, WITH CURRENT MODE 
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THIS IS THE HOME DEVICE ROUTINE 



02F9 3AE60A 


HOMEIT: LDA 


NEWDSK 


02FC FE0C 


CPI 


12 


02FE C20803 


JNZ 


REALDISK 


0301 AF 


XRA 


A 


0302 67 


MOV 


H,A 


0303 6F 


MOV 


L,A 


0304 22E70A 


SHLD 


NEWTRK 


0307 C9 


RET 
REALDISK: 




0308 FE04 


CPI 


4 




JRC 


HOME 


030A+380E 


DB 


038H,HOME-$-l 


030C 4F 


MOV 


C r A 


030D 0600 


MVI 


B,0 


030F 217000 


LXI 


H,TRK0 


0312 09 


DAD 


B 


0313 7E 


MOV 


A,M 


0314 FEFF 


CPI 


0FFH 


0316 3E00 


MVI 


A,0 


0318 CO 


RNZ 




0319 77 


MOV 


M,A 



; CHECK FOR FIRST HOME 

; CHECK FOR VIRTUAL DISK 

; VIRTUAL DISK 

; SET TRACK TO ZERO 



CHECK FOR FLOPPY 
DO NOT BYPASS FLOPPY HOM 
■ — - FAKE JRC INSTRUCTION 

POINT TO PRESENT TRACK ST 



CHECK IF INITIALIZED 



YES - RETURN WITH NO ER 
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HOME: 



031A 


3AE60A 




LDA 


NEWDSK 


031D 


FE04 




CPI 
JRNC 


004H 
HOMEHARD 


031F+3022 




DB 


03 OH, HOMEHARD- $ 






HOMESOFT : 




0321 


CD5205 




CALL 


DSKSEL 


0324 


3AF60A 




LDA 


ERFLAG 


0327 


B7 




ORA 
JRNZ 


A 
HOME1A 


0328+2016 




DB 


020H,HOMElA-$-l 


032A 


CDB305 




CALL 


POINT 


032D 


3600 




MVI 


M,000H 


032F 


CD1905 




CALL 


DBL$UPDATE 


0332 


3E0A 




MVI 


A,00AH 


0334 


CD6307 




CALL 


FINTFIX 


0337 


CD3A07 


HOME1: 


CALL 


FPYWAIT 


033A 


3 AFC A 




LDA 


STATUS 


033D 


E698 




AN I 


10011000B 


033F 


C8 




RZ 




0340 


3E01 


HOME1A: 


MVI 


A,001H 


0342 


C9 




RET 








HOMEHARD : 










IF 


HARDSK 


0343 


CD5205 




CALL 


DSKSEL 


0346 


CDB305 




CALL 


POINT 


0349 


3600 




MVI 


M f 000H 


034B 


EB 




XCHG 




034C 


7E 




MOV 


A,M 


034D 


E6F0 




AN I 


11110000B 


034F 


77 




MOV 


M,A 


0350 


D320 




OUT 


02 OH 


0352 


3E20 




MVI 


A,020H 


0354 


CD2107 




CALL 


INTFIX 


0357 


CD1707 


HOME 2: 


CALL 


WAIT0 


035A 


0E14 




MVI 


C,20 


035C 


CD8207 




CALL 


DELAY 


035F 


AF 




XRA 


A 


0360 


D322 




OUT 


022H 






• 


LXI 


H,MHM 






• 


CALL 


MSPRT 


0362 


3AFC0A 




LDA 


STATUS 


0365 


E65D 




AN I 


01011101B 


0367 


C8 




RZ 




0368 


3E01 




MVI 
END IF 


A,001H 


036A 


C9 




RET 





;GET VALUE OF DRIVE FOR HOM 
;IS IT A HARD DISK ?? 

;YES, PROCESS 

1 . FA KE JRNC INS 



SELECT CORRECT DRIVE (IN A 

CHECK FOR ERRORS DURING SE 
EXIT IF ERRORS 
— — FARE JRNZ INSTRUCTION 
POINT TO TRACK REGISTER SA 
RESET TO TRACK ZERO 

HOME COMMAND 

CLEAR ANY PENDING INTERRUP 

AND ISSUE COMMAND 

WAIT UNTIL I/O COMPLETE 

PICKUP STATUS BYTE 

CHECK STATUS 

RETURN WITH GOOD ESULT 

SET ERROR ON HOME 

AND RETURN .... 



SELECT CORRECT DRIVE (IN A 

POINT TO SAVE AREA 

SET TO TRACK ZERO 

POINT TO SELECT WORD 

LOAD SELECT MASK 

RESET HEAD MASK 

SAVE 

WRITE HEAD/SELECT MASK 

HOME COMMAND 

CLEAR ANY PENDING INTERRUP 

AND ISSUE COMMAND 

WAIT UNTIL I/O COMPLETE 

DELAY FOR 20 MILLISECONDS 

SET NEW TRACK REGISTER TO 

FOR CONTROLLER 

***DEBUG*** 

***DEBUG*** 

PICKUP STATUS BYTE 

CHECK STATUS 

SET ERROR ON HOME 
;AND RETURN 
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036B AF 
036C 32F10A 
036F 3E01 
0371 32F80A 
0374 32F70A 
0377 3E02 
0379 32F90A 

037C+1864 



037E AF 
037F 32F80A 

0382 79 

0383 32F90A 



0386 E602 
0388+2817 



038A 


3E80 


038C 


32F10A 


038F 


3AE60A 


0392 


32F20A 


0395 


2AE70A 


0398 


22F30A 


039B 


3AE90A 


039E 


32F50A 



THESE ARE THE HARD DISK UNBLOCK/REBLOCK AND READ AN 
ROUTINES CALLED BY THE BDOS SOFTWARE. 



READHARD : 
IF 
XRA 
STA 
MVI 
STA 
STA 
MVI 
STA 
JR 
DB 
END IF 

WRITEHARD : 
IF 
XRA 
STA 
MOV 
STA 

if 

ani 

JRZ 

DB 

else 

CPI 

JRNZ 

end if 



HARDSK 

A 

UNACNT 

A,001H 

READOP 

RSFLAG 

A f WRUAL 

WRTYPE 

RWOPER 

018H,RWOPER-$-l 



HARDSK 

A 

READOP 

A,C 

WRTYPE 

mpm20 

WRUAL 

CHKUNA 

028H,CHKUNA-$-l 

WRUAL 
CHKUNA 



RESET UNALLOCATED COUNT 

READ THE SELECTED CP/M SEC 

MUST READ DATA 

TREAT AS UNALLOCATED 

TO PERFORM THE READ 

FAKE JR INSTRUCTION - 



WRITE THE SELECTED CP/M SE 
NOT A READ OPERATION 
WRITE TYPE IS PASSED IN RE 



;IS IT WRITE UNALLOCATED ?? 

; CHECK FOR UNALLOCATED 

._ F AKE JRZ INSTRUCTION 

;IS IT WRITE UNALLOCATED ?? 
; CHECK FOR UNALLOCATED 



WRITE TO UNALLOCATED, SET PARAMETERS 



MVI 


A,BLKSIZ/128 


STA 


UNACNT 


LDA 


NEWDSK 


STA 


UNADSK 


LHLD 


NEWTRK 


SHLD 


UNATRK 


LDA 


NEWSEC 


STA 


UNASEC 



NEXT UNALLOC RECS 

DISK FOR I/O 
UNADSK = NEWDSK 

UNATRK = NEWTRK 

UNASEC = NEWSEC 



CHECK FOR WRITE TO UNALLOCATED SECTOR 





CHKUNA: 




03A1 3AF10A 


LDA 


UNACNT 


03A4 B7 


ORA 


A 



;ANY UNALLOCATED REMAIN ?? 



All Information Presented Here is Proprietary to Digital Research 

114 



MP/M II System Guide 



Appendix E MP/M Banked XIOS 



03A5+2833 



JRZ ALLOC ;SKIP IS NOT 

DB 028H,ALLOC-$-l ; FAKE JRZ INSTRUCTION 



03A7 3D 
03A8 32F10A 
03AB 3AE60A 
03AE 21F20A 
03B1 BE 

03B2+2026 



MORE UNALLOCATED RECORDS REMAIN 



DCR 


A 


STA 


UNACNT 


LDA 


NEWDSK 


LXI 


H,UNADSK 


CMP 


M 


JRNZ 


ALLOC 


DB 


020H r ALLOC-$-l 



UNACNT = UNACNT - 1 

SAME DISK ?? 

NEWDSK = UNADSK ?? 

SKIP IF NOT 

FAKE JRNZ INSTRUCTION 



03B4 21F30A 
03B7 CD6104 

03BA+201E 



DISKS ARE THE SAME 



LXI 


H, UNATRK 


CALL 


NEWTRKCMP 


JRNZ 


ALLOC 


DB 


020H,ALLOC-$-l 



NEWTRK = UNATRK ?? 

SKIP IF NOT 

FAKE JRNZ INSTRUCTION 



03BC 3AE90A 
03BF 21F50A 
03C2 BE 

03C3+2015 



TRACKS ARE THE SAME 



LDA 


NEWSEC 


LXI 


H, UNASEC 


CMP 


M 


JRNZ 


ALLOC 


DB 


020H,ALLOC-$-l 



SAME SECTOR ?? 

NEWSEC = UNASEC ?? 

SKIP IF NOT 

FAKE JRNZ INSTRUCTION 



03C5 34 
03C6 7E 
03C7 FE80 

03C9+3809 



MATCH, MOVE TO NEXT SECTOR FOR FUTURE REFERENCE 



UNASEC = UNASEC + 1 

END OF TRACK ?? 

COUNT CP/M SECTORS 

SKIP IF NO OVERFLOW 

FAKE JRC INSTRUCTION 



INR 


M 


MOV 


A,M 


CPI 


CPMSPT 


JRC 


NOOVF 


DB 


038H,NOOVF-$-l 



03CB 3600 
03CD 2AF30A 
03D0 23 
03D1 22F30A 



OVERFLOW TO NEXT TRACK 



MVI 


M,000H 


LHLD 


UNATRK 


INX 


H 


SHLD 


UNATRK 



UNASEC = 



UNATRK = UNATRK + 1 



MATCH FOUND, MARK AS UNNECESSARY READ 
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03D4 AF 
03D5 32F70A 

03D8+1808 



NOOVF: 



XRA 


A 


STA 


RSFLAG 


JR 


RWOPER 


DB 


018H,RWOPER-$-l 



ZERO TO ACCUMULATOR 
RSFLAG = 

TO PERFORM THE WRITE 
FAKE JR INSTRUCTION 



03DA AF 
03DB 32F10A 
03DE 3C 
03DF 32F70A 



NOT AN UNALLOCATED RECORD, REQUIRES PRE-READ 



ALLOC 



XRA 


A 


;ZERO TO ACCUMULATOR 


STA 


UNACNT 


; UNACNT = 


INR 


A 


;ONE TO ACCUMULATOR 


STA 


RSFLAG 


; RSFLAG = 1 



THE FOLLOWING CODE IS COMMON TO BOTH READ AND WRITE 



Rl 
03E2 AF 


tfOPER: 

XRA 


A 


03E3 32F60A 


STA 


ERFLAG 


03E6 3AE90A 


LDA 


NEWSEC 




REPT 


SECSHF 




ORA 


A 




RAR 






ENDM 




03E9+B7 


ORA 


A 


03EA+1F 


RAR 




03EB+B7 


ORA 


A 


03EC+1F 


RAR 




03ED+B7 


ORA 


A 


03EE+1F 


RAR 




03EF 32EE0A 


STA 


NEWHST 



;ZERO TO ACCUMULATOR 

; NO ERRORS YET 

; COMPUTE HOST SECTOR 
; COMPUTE HOST SECTOR 
; CARRY = 
; SHIFT RIGHT 

CARRY = 

SHIFT RIGHT 

CARRY = 

SHIFT RIGHT 

CARRY = 

SHIFT RIGHT 

HOST SECTOR TO SEEK 



03F2 21EF0A 

03F5 7E 

03F6 3601 

03F8 B7 

03F9+2821 



ACTIVE HOST SECTOR ?? 



LXI 


H,HSTACT 


MOV 


A,M 


MVI 


M,001H 


ORA 


A 


JRZ 


FILLHST 


DB 


028H.FIL 



;HOST ACTIVE FLAG 

; ALWAYS BECOMES 1 
;WAS IT ALREADY ?? 
;FILL HOST IF NOT 



. FAKE JRZ INST 



HOST BUFFER ACTIVE, SAME AS SEEK BUFFER 
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03FB 3AE60A 
03FE 21EA0A 
0401 BE 

0402+2011 



0404 21EB0A 
0407 CD6104 

040A+2009 



040C 3AEE0A 
040F 21ED0A 
0412 BE 

0413+2824 



LDA 


NEWDSK 


LXI 


H, HSTDSK ; 


CMP 


M ; 


JRNZ 


NOMATCH ; 


DB 


020H,NOMATCH-$-l 



SAME DISK ?? 
NEWDSK = HSTDSK ?? 



. FAKE JRNZ ins 



SAME DISK, SAME TRACK ?? 



LXI 


H,HSTTRK 


CALL 


NEWTRKCMP 


JRNZ 


NOMATCH ; 


DB 


020H,NOMATCH-$-l 



NEWTRK = HSTTRK ?? 



- FAKE JRNZ INS 



SAME DISK, SAME TRACK, SAME BUFFER ?? 



LDA 


NEWHST 


LXI 


H,HSTSEC 


CMP 


M 


JRZ 


MATCH 


DB 


028H,MATCH-$-l 



NEWHST = HSTSEC ?? 

SKIP IF MATCH 

FAKE JRZ INSTRUCTION 



PROPER DISK, BUT NOT CORRECT SECTOR 



0415 


NC 
3AF00A 


)MATCH : 

LDA 


HSTWRT 


;HOST WRITTEN ?? 


0418 


B7 


ORA 


A 




0419 


C46D04 


CNZ 


WRITEHST 


; CLEAR HOST BUFFER 



MAY HAVE TO FILL HOST BUFFER 







FILLHST 


: 






041C 


3AE60A 




LDA 


NEWDSK 




041F 


32EA0A 




STA 


HSTDSK 




0422 


2AE70A 




LHLD 


NEWTRK 




0425 


22EB0A 




SHLD 


HSTTRK 




0428 


3AEE0A 




LDA 


NEWHST 




042B 


32ED0A 




STA 


HSTSEC 




042E 


3AF70A 




LDA 


RSFLAG j 


NEED TO READ ?? 


0431 


B7 




ORA 


A 




0432 


C47F04 




CNZ 


READHST ; 


'YES, IF 1 


0435 


AF 




XRA 


A 


;ZERO TO ACCUMULATOR 


0436 


32F00A 


MATCH: 


STA 


HSTWRT ; 


NO PENDING WRITE 


0439 


3AE90A 




LDA 


NEWSEC ; 


•MASK BUFFER NUMBER 


043C 


E607 




AN I 


SECMSK 


•LEAST SIGNIF BITS 


043E 


6F 




MOV 


L,A 


•READY TO SHIFT 
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043F 2600 



0441+29 
0442+29 
0443+29 
0444+29 
0445+29 
0446+29 
0447+29 



ie 




Append: 


Lx E 


MVI 


H,000H 


;DOU 


REPT 


7 




DAD 


H 


/ 


ENDM 






DAD 


H 






DAD 


H 






DAD 


H 






DAD 


H 






DAD 


H 






DAD 


H 






DAD 


H 







MP/M Banked XIOS 



HL NOW HAS RELATIVE HOST BUFFER ADDRESS 



0448 119C0E 
044B 19 
044C EB 
044D 2AAF00 

0450 EB 

0451 3AF80A 

0454 B7 

0455 C23D0E 



0458 3E01 
045A 32F00A 
045D EB 
045E C33D0E 



LXI 


D,HSTBUF 


DAD 


D 


XCHG 




LHLD 


DMAADR 


XCHG 




LXI 


B,128 


LDA 


READOP 


ORA 


A 


JNZ 


RWMOVE 



HL = HOST ADDRESS 

NOW IN DE 

GET/PUT CP/M DATA 

SET FOR Z80 LDIR INSTRUCTI 

LENGTH OF MOVE 

WHICH WAY ?? 

SKIP IF READ 



WRITE OPERATION, MARK AND SWITCH DIRECTION 



HSTWRT = 1 
SWAP DIRECTION 



MVI 


A,001H 


STA 


HSTWRT 


XCHG 




IjmP 


rwmove 


endif 





PAGE 



UTILITY SUBROUTINE FOR 16 BIT COMPARE 





IF 


HARDSK 




NEWTRKCMP : 




0461 EB 


XCHG 




0462 21E70A 


LXI 


H,NEWTRK ; 


0465 1A 


LDAX 


D ; 


0466 BE 


CMP 


M ; 


0467 CO 


RNZ 




0468 13 


INX 


D 


0469 23 


INX 


H 


046A 1A 


LDAX 


D 



HL = .UNATRK OR .HSTTRK 

LOW BYTE COMPARE 

SAME ?? 

RETURN IF NOT 

TO CHECK HIGH BYTE 
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046B BE 
046C C9 



CMP 
RET 

PAGE 



M 



;SETS FLAGS 



046D 3E05 
046F 32CE00 
0472 3E02 
0474 32FA0A 
0477 219B0E 
047A 22BC00 

047D+1810 



047F 3E01 
0481 32CE00 
0484 3E04 
0486 32FA0A 
0489 219C0E 
048C 22BC00 



048F 3E05 
0491 32020B 
0494 3EFF 
0496 32030B 



0499 


3AED0A 


049C 


32B100 


049F 


3AEA0A 


04A2 


CD5205 


04A5 


CDB305 


04A8 


EB 


04A9 


3EF0 


04AB 


A6 


04 AC 


77 


04 AD 


E5 


04AE 


CD3205 


04B1 


7D 



WRITEHST 


PERFORMS THE PHYSICAL 


WRITE 


TO 


THE 


HOST 


DI 


READHST 


PERFORMS THE PHYSICAL 


READ 


FROM 


THE 


HOST 


DI 


HSTDSK = 


HOST 


DISK NUMBER 














; HSTTRK = 


HOST 


TRACK NUMBER 














HSTSEC = 


HOST 


SECTOR NUMBER 














RETURN ERROR FLAG IN ERFLAG 















WRITEHST: 



MVI A,005H 

STA DMAS3F 

MVI A,002H 

STA CMD 

LXI H f HSTBUF-l 

SHLD DMASA 

JR HRW0 

DB 018H,HRW0-$-l 



READHST : 



HRW0 



MVI A,001H 

STA DMAS3F 

MVI A,004H 

STA CMD 

LXI H,HSTBUF 

SHLD DMASA 



MVI A, 05 

STA T$RETRIES 

MVI A,0FFH 

STA HOME $ TOGGLE 



HRW1: 



LDA 


HSTSEC 


STA 


SECTNO 


LDA 


HSTDSK 


CALL 


DSKSEL 


CALL 


POINT 


XCHG 




MVI 


A,11110000B 


ANA 


M 


MOV 


M,A 


PUSH 


H 


CALL 


SETHED 


MOV 


A,L 



SETUP DMA FOR WRITE 

WRITE COMMAND 

SAVE FOR LATER 

WRITE MUST WRITE CONTROL B 



FAKE JR INSTRUCTION 



SETUP DMA FOR READ 

READ COMMAND 

SAVE FOR LATER 

READ ONLY DATA BYTES 



;FIVE RETRIES 

; SETUP TEMPORARY RETRIES CO 
;INIT TOGGLE SO THAT NO HOM 
; ALTERNATE RETRIES WILL BE 
; OTHER RETRIES WILL BE DONE 



HOST SECTOR NUMBER 

SAVE SECTOR NUMBER 

PICKUP DRIVE ID FOR SELECT 

SELECT CORRECT DRIVE FOR I 

POINT TO TRACK REGISTER SA 

POINT TO SELECT MASK 

TO REMOVE CURRENT HEAD SEL 



SAVE MASK ADDRESS 

COMPUTE CORRECT HEAD NUMBE 

TRACK NUMBER AFTER HEAD CA 
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04B2 32AD00 
04B5 El 
04B6 3AAE00 
04B9 B6 
04BA 77 
04BB E67F 
04BD D320 
04BF 0E01 
04C1 CD8207 



04C4 CDB305 
04C7 3AAD00 
04CA BE 

04CB+2814 



04CD D322 
04CF 46 
04D0 77 
04D1 78 
04D2 D321 
04D4 3E10 
04D6 CD2107 

04D9 CD1707 
04DC 0E14 
04DE CD8207 



04E1 3AB100 
04E4 D321 



HRW2 



HRW3 



HRW4 



HRW5 



STA 
POP 
LDA 
ORA 
MOV 
AN I 
OUT 
MVI 
CALL 



CALL 

LDA 

CMP 

JRZ 

DB 



OUT 
MOV 
MOV 
MOV 
OUT 
MVI 
CALL 

CALL 

MVI 

CALL 



LDA 
OUT 



TRAKNO 

H 

HEADNO 

M 

M,A 

07FH 

020H 

C,l 

DELAY 



POINT 

TRAKNO 

M 

HRW5 

028H,HRW5-$-l 



022H 

B f M 

M,A 

A,B 

021H 

A,010H 

INTFIX 



WAITO 

C,20 

DELAY 



SECTNO 
021H 



RESTORE MASK ADDRESS 

TO OR IN NEW HEAD NUMBER 

SAVE NEW DRIVE/HEAD SELECT 
MASK OFF LARGE DRIVE FLAG 
WRITE IT TO SELECT NEW HEA 
DELAY FOR 1 MILLISECOND 



IS A SEEK NECESSARY ?? 

CHECK 

WELL ?? 

NO SEEK NECESSARY . . . 

FAKE JRZ INSTRUCTION 



WRITE NEW TRACK NUMBER 

SAVE TEMPORARILY 

UPDATE TRACK REGISTER SAVE 

OLD TRACK NUMBER 

TO OLD TRACK REGISTER 

SEEK COMMAND 

CLEAR ANY PENDING INTERRUP 

AND ISSUE COMMAND 

WAIT FOR I/O 

DELAY AFTER SEEK FOR 20 MI 



;SET SECTOR 



HRW6 



04E6 21BA00 
04E9 010006 

04EC+EDB3 
04EE 21C000 
04F1 010006 

04F4+EDB3 
04F6 21CA00 
04F9 010007 

04FC+EDB3 

04FE 3AFA0A 
0501 CD2107 

0504 CD1707 

0507 3E5D 



HRW7 



LXI 


H,DMAS1 


LXI 


B,0600H 


OUTIR 




DB 


0EDH,0B3H 


LXI 


H,DMAS2H 


LXI 


B,0600H 


OUTIR 




DB 


0EDH,0B3H 


LXI 


H,DMAS3 


LXI 


B,0700H 


OUTIR 




DB 


0EDH,0B3H 


LDA 


CMD 


CALL 


INTFIX 


CALL 


WAITO 


MVI 


A,01011101B 



SETUP DMA FOR HARD DISK 1/ 



- FAKE OTIR INSTRUCTION 



FAKE OTIR INSTRUCTION 



FAKE OTIR INSTRUCTION 

; PICKUP I/O COMMAND 

; CLEAR ANY PENDING INTERRUP 

;AND ISSUE COMMAND 

;WAIT FOR COMPLETION 

; SETUP STATUS AND MASK 
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0509 32FB0A 
050C CDAE06 
050F C8 

0510 3A030B 

0513 2F 

0514 32030B 



0517+1880 



STA 

CALL 

RZ 

LDA 
CMA 
STA 

JR 
DB 
ENDIF 

PAGE 



MASK 
CHECK$STAT 



HOME $ TOGGLE 
HOME $ TOGGLE 

HRW1 
018H,HRWl-$-l 



;SAVE FOR STATUS CHECK 
; CHECK STATUS FROM I/O 
;OK ?? 



CHANGE TOGGLE SO THAT HOME 



; RETRY I/O 

. FAKE j R INSTRUCTION - 



DOUBLE SIDED TRACK REGISTER UPDATE ROUTINE 





DBL$UPDATE: 




0519 3AB600 


LDA 


MPARMS 


051C E601 


AN I 


1 


051E C8 


RZ 




05 IF 3AAC00 


LDA 


DISKNO 


0522 FE04 


CPI 


004H 


0524 DO 


RNC 




0525 E602 


AN I 


00000010B 


0527 7E 


MOV 


A,M 




JRZ 


DBL$LOW 


0528+2804 


DB 


028H,DBL$LOW- 


052A 2B 


DCX 


H 


052B 2B 


DCX 


H 




JR 


DBL$SAVE 


052C+1802 


DB 
DBL$LOW: 


018H,DBL$SAVE 


Q52E 23 


INX 


H 


052F 23 


I NX 
DBL$SAVE: 


H 


0530 77 


MOV 


M,A 


0531 C9 


RET 





CHECK FOR DOUBLE SIDED DRI 
IS FLAG SET 
NO -. SO RETURN 
CURRENT DISK DRIVE 
IS IT A FLOPPY 
NO, RETURN WITHOUT UPDATE 
IS THIS DRIVE 2 OR 3 ?? 
WE WERE CALLED WITH (HL) P 
IT MUST BE DRIVE ZERO OR O 

$-1 ; FAKE JRZ INST 

BACKUP TO OTHER SIDE POINT 



.$-1 . FAKE JR iNSTR 



;BUMP UP TO DRIVE TWO OR TH 



; UPDATE OTHER SIDE REGISTER 



PAGE 



ROUTINE TO COMPUTE HEAD NUMBER FROM TRACK NUMBER 
TRACK NUMBER IS IN HL ON ENTRY 



IF 



HARDSK 



SETHED : 
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0532 2AEB0A 
0535 E680 
0537 7D 

0538+2806 
053A E607 
053C 0E03 

053E+1804 
0540 E603 
0542 0E02 
0544 32AE00 

0547 B7 

0548 7C 

0549 IF 
054A 67 
054B 7D 
054C IF 
054D 6F 
054E 0D 

054F+20F6 
0551 C9 



LHLD 
AN I 
MOV 
JRZ 
DB 
ANI 
MVI 
JR 
DB 
SETH14: ANI 
MVI 
SETDVD: STA 
SHD1: ORA 
MOV 
RAR 
MOV 
MOV 
RAR 
MOV 
DCR 
JRNZ 
DB 
RET 
ENDIF 



HSTTRK 

80H 

A,L 

SETH14 

028H,SETH14-$-l 

00000111B 

C,3 

SETDVD 

018H,SETDVD-$-l 

00000011B 

C,2 

HEADNO 

A 

A,H 

H,A 
A,L 

L r A 

C 

SHD1 

020H,SHDl-$-l 



CP/M TRACK NUMBER (0-800) 

CHECK FOR LARGE DRIVE 
LOW ORDER 

SMALL DRIVE 

FAKE JRZ INSTRUCTION 

GET TRACK MOD 8 (HEAD NUMB 
LIMIT LOOP FOR DIVIDE BY E 

FAKE JR INSTRUCTION - 

GET TRACK MOD 4 (HEAD NUMB 
LIMIT LOOP FOR DIVIDE BY F 
SAVE AS HEAD NUMBER 
ENSURE CARRY IS ZERO 
FOR SHIFT 
ONE BIT 

LOW ORDER 

CARRY PARTICIPATES FROM HI 

END OF DIVIDE YET ?? 
NO, CONTINUE 

FAKE JRNZ INSTRUCTION 

RETURN TO CALLER, TRACK IN 



PAGE 



DISK DRIVE SELECT ROUTINE 

ON ENTRY, THE ACCUMULATOR CONTAINS THE DRIV 
RETURNS CARRY SET FOR HARD DISK SELECTED 
RETURNS CARRY RESET FOR FLOPPY DISK SELECTE 





DSKSEL: 




0552 FE04 


CPI 


004H 




JRNC 


SELHARD 


0554+3045 


DB 
SELSOFT: 


030H,SELHARD- 


0556 21AC00 


LXI 


H,DISKNO 


0559 BE 


CMP 


M 




JRZ 


SLS3 


055A+2819 


DB 


028H,SLS3-$-l 


055C 77 


MOV 


M,A 



;IS IT HARD DISK ?? 

;YES, GO PROCESS 

. FAKE JRNC INS 



CURRENT DRIVE NUMBER 
SAME DRIVE AS LAST TIME ?? 
YES, DONT BOTHER WITH UNLO 
— - FAKE JRZ INSTRUCTION 
UPDATE WITH CURRENT DRIVE 



WE WILL NOW FORCE THE HEAD TO UNLOAD PRIOR TO THE S 
TO ENSURE THAT WHEN WE RETURN TO THIS DISK WE WILL 
LOAD AND WAIT FOR THE HEAD TO SETTLE. 
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SLS1 



055D DB04 
055F IF 

0560+38FB 
0562 DB05 
0564 D307 

0566 3E12 
0568 CD6307 

056B CD3A07 
056E 3AFC0A 
0571 E698 

0573+2020 



SLS2 



IN 


004H 


RAR 




JRC 


SLS1 


DB 


038H,SLSl-$-l 


IN 


005H 


OUT 


007H 


MVI 


A,012H 


CALL 


FINTFIX 


CALL 


FPYWAIT 


LDA 


STATUS 


AN I 


10011000B 


JRNZ 


SLSERR 


DB 


020H,SLSERR-$-l 



ENSURE FLOPPY PORT NOT BUS 



FAKE JRC INSTRUCTION 

READ THE TRACK REGISTER 
ENSURE WE DONT MOVE THE HE 

SEEK AND UNLOAD HEAD 
CLEAR ANY PENDING INTERRUP 

AND ISSUE COMMAND 
WAIT HERE FOR INTERRUPT 
HOW DID THE I/O GO? 

CHECK 
EXIT IF ERROR 
FAKE JRNZ INSTRUCTION 



WE WILL NOW LOAD THE SELECT MASK AND SELECT THE DRI 
EVEN IF ITS THE SAME DRIVE BECAUSE THE DENSITY MAY 
HAVE CHANGED. 



SLS3 



0575 CDB305 


CALL 


POINT 


0578 EB 


XCHG 




0579 3AAD00 


LDA 


TRAKNO ; 


057C FE02 


CPI 


002H 


057E 3EFF 


MVI 


A,11111111B 




JRNC 


SLS4 


0580+3002 


DB 


030H,SLS4-$-l 


0582 3EFE 


MVI 
SLS4: 


A,111U110B 


0584 A6 


ANA 


M 


0585 D308 


OUT 


008H 


0587 DB04 


IN 


004H 


0589 17 


RAL 






JRC 


SLSERR 


058A+3809 


DB 


038H,SLSERR-$-l ; 


058C EB 


XCHG 




058D 7E 


MOV 


A,M 


058E D305 


OUT 


005H 


0590 AF 


XRA 


A 


0591 32F60A 


STA 


ERFLAG 


0594 C9 


RET 




0595 AF 


SLSERR: XRA 


A 


0596 3C 


INR 


A 


0597 32F60A 


STA 


ERFLAG 


059A C9 


RET 





POINT TO TRACK SAVE AREA 

POINT TO SELECT MASK 

NEXT TRACK FOR I/O 

IS IT TRACK ZERO OR ONE 

ASSUME NO.. . . 

VERIFY ASSUMPTION 

FAKE JRNC INSTRUCTION 

FORCE SINGLE DENSITY FOR 



LOAD MASK AND CORRECT IF N 

SELECT IT 

IS DRIVE READY? 

IF NOT.. .BRANCH 

FAKE JRC INSTRUCTION 

RESTORE TRACK REGISTER ADD 
PICK UP TRACK NUMBER 
GIVE IT TO CONTROLLER 
ENSURE CARRY IS RESET 
ALSO ZERO ERROR INDICATOR 



; ENSURE CARRY IS RESET 
;SET TO 1 FOR ERROR FLAG 
;SHOW ERROR 
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THIS ROUTINE SETS UP THE HARD DISK BY SELECTING THE 
DRIVE AND RELOADING THE HEAD AND TRACK REGISTERS IN 
HARD DISK CONTROLLER READY FOR I/O LATER. 







SELHARD: 








IF 


HARDSK 


059B 


21AC00 


LXI 


H, DISKNO 


059E 


BE 


CMP 


M 


059F 


C8 


RZ 




05A0 


77 


MOV 
SLH1: 


M,A 


05A1 


CDB305 


CALL 


POINT 


05A4 


EB 


XCHG 




05A5 


7E 


MOV 


A,M 


05A6 


D320 


OUT 


020H 


05A8 


EB 


XCHG 




05A9 


7E 


MOV 


A,M 


05AA 


D322 


OUT 


022H 


05 AC 


0E14 


MVI 


C,20 


05AE 


CD8207 


CALL 


DELAY 


05B1 


37 


STC 
ENDIF 




05B2 


C9 


RET 





; CURRENT DRIVE SELECTED 
;SAME 11 

;YES, NO NEW SELECT NECESSA 
; UPDATE DISKNO 



TRACK SAVE REGISTER 
POINT TO SELECT MASK 
LOAD DRIVE/HEAD VALUE 
WRITE IT TO SELECT PORT 
REGAIN ADDRESS OF TRACK RE 
LOAD OLD TRACK NUMBER 
WRITE IT TO OLD TRACK REGI 
DELAY FOR 20 MILLISECONDS 

SET CARRY TO SHOW HARD DIS 
; RETURN TO CALLER 



PAGE 



SUBROUTINE TO POINT TO CURRENT TRACK REGISTER SAVE 



POINT: 




05B3 2AAC00 


LHLD 


DISKNO 


05B6 7D 


MOV 


A,L 


05B7 2600 


MVI 


H,0 


05B9 117000 


LXI 


D,TRK0 


05BC 19 


DAD 


D 


05BD 54 


MOV 


D,H 


05BE 5D 


MOV 


E,L 


05BF 010C00 


LXI 


B,12 


05C2 09 


DAD 


B 




IF 


HARDSK 


05C3 FE04 


CPI 


4 




JRC 


PNTFN 


05C5+380D 


DB 


038H,PNTFN 


05C7 3E10 


MVI 


A,10H 


05C9 A6 


ANA 


M 




JRZ 


PNTH2 


05CA+2805 


DB 


028H,PNTH2 



PICKUP CURRENT DISK 

RESET HIGH ORDER HALF 
LOAD TRACK POINTER 
POINT TO CURRENT TRACK PTR 
DE = TRACK 



HL = SELECT 



; FLOPPY DISK 

$-1 ; FAKE JRC INSTRUCTION 

CHECK DRIVE SELECT 
MUST BE DRIVE # 2 
$-1 ; FAKE JRZ INSTRUCTION 
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05CC 11B800 




LXI 
JR 


05CF+1803 




DB 


05D1 11B900 


PNTH2: 


LXI 
ENDIF 


05D4 EB 


PNTFN: 


XCHG 


05D5 C9 




RET 



D,HTK1 ; POINT TO DRIVE 1 
PNTFN 

18H, PNTFN- $-1 ; FAKE JR INSTRUCTION 

D,HTK2 ; POINT TO DRIVE 2 



; SWITCH 

; HL = TRACK 



DE = SELECT 



ROUTINE TO TRANSLATE SECTOR NUMBER 





SECTRAN 


: 




05D6 EB 




XCHG 




05D7 7C 




MOV 


A,H 


05D8 B5 




ORA 


L 






JRZ 


STRN2 


05D9+2807 


STRN1: 


DB 


028H,STRN2-$-l 


05DB 0600 




MVI 


B,000H 


05DD 09 




DAD 


B 


05DE 6E 




MOV 


L,M 


05DF 2600 




MVI 


H,000H 


05E1 C9 


STRN2: 


RET 




05E2 09 




DAD 


B 


05E3 C9 




RET 





TABLE ADDRESS IS IN DE (NO 
IS THERE A TABLE ADDRESS ? 

NO, JUST RETURN ENTERED QU 
FAKE JRZ INSTRUCTION 



; ENSURE OK FOR SINGLE BYTE 
;ADD SECTOR NUMBER 
;LOAD TRANSLATED VALUE 

• 

;NEW VALUE RETURNED IN HL 



; RETURN SAME VALUE AS ENTER 



ROUTINES TO DO FLOPPY I/O 





READSOFT: 




05E4 3E9F 


MVI 


A,09FH 


05E6 32FB0A 


STA 


MASK 


05E9 3E01 


MVI 


A,001H ; 


05EB 32CE00 


STA 


DMAS3F 


05EE 3E8C 


MVI 


A,08CH 




JR 


SRW1 


05F0+180F 


DB 
WRITESOFT: 


018H,SRWl-$-l 


05F2 3EFF 


MVI 


A,0FFH ; 


05F4 32FB0A 


STA 


MASK 


05F7 CD6B0E 


CALL 


MVDTB ; 


05FA 3E05 


MVI 


A,005H 


05FC 32CE00 


STA 


DMAS3F 


05FF 3EAC 


MVI 


A,0ACH ; 



MASK FOR READ STATUS 
SETUP DMA FOR READ 
READ COMMAND 
FAKE JR INSTRUCTION 

MASK FOR WRITE STATUS 

SETUP DMA FOR WRITE 
WRITE COMMAND 
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SRW1 : 



0601 
0604 
0607 
060A 
060D 
0610 
0613 
0614 



32FA0A 

211D13 

22BC00 

3AE60A 

CD5205 

3AF60A 

B7 

CO 



0615 3E0A 
0617 32020B 
061A AF 
061B 32030B 



061E DB08 
0620 E602 

0622+201F 
0624 DB05 
0626 D307 
0628 3E1A 
062A CD6307 

062D CD3A07 
0630 3AFC0A 
0633 E698 

0635+2044 

0637 0E10 
0639 CD8207 
063C CDB305 
063F 36FE 

0641+1807 



0643 21FA0A 
0646 3EFB 

0648 A6 

0649 77 



064A CDB305 
064D 3AE70A 
0650 32AD00 
0653 BE 

0654+281A 

0656 77 

0657 D307 



STA 

LXI 

SHLD 

LDA 

CALL 

LDA 

ORA 

RNZ 



SRW2 



MVI 
STA 
XRA 
STA 

LOAD$HEAD : 
IN 
AN I 
JRNZ 
DB 
IN 
OUT 
MVI 
CALL 

LDH1: CALL 
LDA 
AN I 
JRNZ 
DB 

MVI 

CALL 

CALL 

MVI 

JR 

DB 

REMOVE $LD: 
LXI 
MVI 
ANA 
MOV 



TRKTST : 



CALL 

LDA 

STA 

CMP 

JRZ 

DB 

MOV 

OUT 



CMD 

H f FPYBUF 

DMASA 

NEWDSK 

DSKSEL 

ERFLAG 

A 



A, 10 

T$RETRIES 

A 

HOME $ TOGGLE 



SELECT DRIVE FOR I/O 
CHECK FOR SELECT ERROR 

RETURN IF ERROR 



;SET NUMBER OF TRIALS 
;SAVE FOR RETRY ROUTINE 

; FORCE HOME PRIOR TO EACH R 



008H 

00000010B 

REMOVE $LD 

02 OH , REMOVE $LD- 

005H 

007H 

A,01AH 

FINTFIX 

FPYWAIT 

STATUS 

10011000B 

CHECKIT 

020H,CHECKIT-$-l 

C,16 

DELAY 

POINT 

M,254 

TRKTST 

018H,TRKTST-$-l 



H,CMD 

A,11111011B 

M 

M,A 



POINT 

NEWTRK 

TRAKNO 

M 

FSECSET 

028H,FSECSET-$-l 

M r A 

007H 



IS HEAD LOADED ?? 

CHECK IT 

YES, ITS LOADED, DONT RELO 

1 .__-_ FAK E JRNZ INS 

DUMMY SEEK TO START HEAD L 

KEEP IT SHORT. . . . 

START HEAD LOADING 

CLEAR ANY PENDING INTERRUP 

AND ISSUE COMMAND 

WAIT FOR I/O TO COMPLETE 

HOW DID IT GO? 

CHECK 

DO NOT GO ON IF ERROR 

. FAKE JRNZ ins 

WAIT HERE FOR 16 MS 
CALL WAIT ROUTINE 
REESTABLISH TRACK REGISTER 
ENSURE FURTHER SEEK AND DE 

FAKE JR INSTRUCTION - 



POINT TO I/O COMMAND 
REMOVE HEAD LOAD BIT 

DO IT 

SAVE IT BACK INTO CMD 



RESTORE TRACK REGISTER POI 
GET NEW TRACK NUMBER 
SAVE IN COMMON PLACE 
SAME AS LAST TIME ?? 
YES, DONT BOTHER WITH SEEK 

. FA KE JRZ INST 

SAVE IT 

ALSO SEND IT TO CONTROLLER 
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0659 


CD1905 




CALL 


DBL$UPDATE 






FLOPPY$SEEK: 




065C 


3E1A 




MVI 


A,01AH 


065E 


CD6307 




CALL 


FINTFIX 


0661 


CD3A07 


FPS1: 


CALL 


FPYWAIT 


0664 


3AFC0A 




LDA 


STATUS 


0667 


E698 




ANI 
JRNZ 


10011000B 
CHECKIT 


0669+2010 




DB 


02 OH, CHECK 


066B 


0E10 




MVI 


C,16 


066D 


CD8207 


FSECSET 


CALL 

• 
• 


DELAY 


0670 


3AE90A 




LDA 


NEWSEC 


0673 


32B100 




STA 


SECTNO 


0676 


D306 




OUT 


006H 


0678 


CD8706 


CHECKIT 


CALL 

• 


FLOPPYIO 


067B 


CDAE06 




CALL 


CHECK$STAT 


067E 


3AF60A 




LDA 


ERFLAG 


0681 


CC7E0E 




CZ 


MVDFB 


0684 


C8 




RZ 
JR 


LOAD$HEAD 


0685+1897 




DB 


018H,LOAD$ 



; DOUBLE SIDED SUPPORT 



SEEK COMMAND WITH HEAD LOA 

CLEAR ANY PENDING INTERRUP 

AND ISSUE COMMAND 

WAIT FOR I/O TO COMPLETE 

HOW DID IT GO? 

CHECK 

DO NOT GO ON IF ERROR 

. FA KE JRNZ INS 

SET FOR 16 MS DELAY 



SET SECTOR 

SAVE IN COMMONN PLACE 



DO I/O 

CHECK STATUS OF I/O 
SETUP TO RETURN TO BDOS 

EITHER OK OR PERMANENT ERR 
ERROR, JUST RETRY THIS SAM 
1 ; FAKE JR INSTR 



PAGE 



THIS IS THE ROUTINE THAT DOES THE FLOPPY DISK I/O 



FLOPPYIO: 




IF 


NOT DMA 


LXI 


H,066H 


LXI 


D,SAVE1 


LXI 


B,004H 


LDIR 




LXI 


H,NMIRTN 


LXI 


D,066H 


LXI 


B,004H 


LDIR 




LDA 


CMD 


ANI 


20H 


JZ 


FRD 


LXI 


H,067H 


MVI 


M,0A3H 


FRD EQU 


$ 


END IF 





MOVE DATA FROM 066H TO SAV 

MOVE IT 

SET NMI ROUTINE TO NMI ADD 

MOVE IT 

IS IT A WRITE ?? 

NO, LEAVE INI CMD IN LOW M 
POINT TO COMMAND AREA 

MAKE IT AN OTI CMD 

LABEL 
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0687 21BA00 
068A 010006 

068D+EDB3 
068F 21C600 
0692 010004 

0695+EDB3 
0697 21CA00 
069A 010007 

069D+EDB3 



069F 0E07 
06A1 211D13 
06A4 3AFA0A 
06A7 CD6307 

06AA CD3A07 



FWT1; 



IF 


DMA 


LXI 


H r PMASl 


LXI 


B,0600H 


OUTIR 




DB 


0EDH,0B3H 


LXI 


H,DMAS2F 


LXI 


B,04Q0H 


OUTIR 




DB 


0EDH,0B3H 


LXI 


H,DMAS3 


LXI 


B,0700H 


OUTIR 




DB 


0EDH,0B3H 


END IF 




MVI 


C r 007H 


LXI 


H,FPYBUF 


LDA 


CMD 


CALL 


FINTFIX 


CALL 


FPYWAIT 


IF 


NOT DMA 


LXI 


H,SAVE1 


LXI 


D,066H 


LXI 


B,004H 


LDIR 




ENDIF 





06AD C9 



RET 



INITIALIZE DMA 

WRITE TO DMA 

FAKE OTIR INSTRUCTION 



WRITE TO DMA 

FAKE OTIR INSTRUCTION 



WRITE TO DMA 

FAKE OTIR INSTRUCTION 



?PORT ADDRESS FOR I/O 

;DMA ADDRESS 

;I/0 COMMAND 

; CLEAR ANY PENDING INTERRUP 

;AND ISSUE COMMAND 

?WAIT HERE FOR I/O TO COMPL 



SETUP TO REPLACE DATA 
COPIED FROM NMI LOCATION 

MOVE IT 



; RETURN, I/O COMPLETED 



WE WILL NOW CHECK THE STATUS OF THE I/O OPERATION 
RETURN WITH CONDITION CODE ZERO = NO RETRY 
RETURN WITH CONDITION CODE NON ZERO = RETRY 







CHECK$STAT: 




06AE 


21F60A 




LXI 


H,ERFLAG 


06B1 


3600 




MVI 


M,000H 


06B3 


21FC0A 




LXI 


H r STATUS 


06B6 


3AFB0A 




LDA 


MASK 


06B9 


A6 




ANA 


M 


06BA 


77 




MOV 


M f A 


06BB 


C8 


CHKS0: 


RZ 




06BC 


CDEE02 




CALL 


RETMOD 


06BF 


FE03 




CPI 


003H 


06C1 


21FC0A 




LXI 


H, STATUS 


06C4 


7E 




MOV 
JRNC 


A,M 
CHKS2 



POINT TO ERROR INDICATOR 

ASSUME OK 

CHECK STATUS 

MASK FOR UNWANTED BIT REMO 

SAVE CLEANED STATUS 
OK, SO RETURN 



HARD DISK ?? / 

RELOAD STATUS BYTE 

YES, CHECK FOR DRIVE READY 
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06C5+3006 

06C7 FE80 
06C9+283D 
06CB+1819 

06CD FEOO 

06CF+2837 
06D1 E640 

06D3+2811 
06D5 CDB305 
06D8 EB 
06D9 7E 
06DA F640 
06DC D320 
06DE 7E 
06DF D320 
06E1 0E14 
06E3 CD8207 



06E6 3A030B 
06E9 B7 

06EA+200B 

06EC 3AFC0A 
06EF F5 
06F0 CD1A03 
06F3 Fl 
06F4 32FC0A 



06F7 119400 
06FA CD0F07 
06FD 21020B 

0700 35 

0701 CO 

0702 11A000 
0705 CD0F07 



0708 21F60A 
070B 3601 
070D AF 
070E C9 



CHKS1 



CHKS2 



CHKS3 



CHKS4 



BADIO; 



DB 



CPI 

JRZ 

DB 

JR 

DB 



CPI 

JRZ 

DB 

AN I 

JRZ 

DB 

CALL 

XCHG 

MOV 

ORI 

OUT 

MOV 

OUT 

MVI 

CALL 



LDA 
ORA 
JRNZ 
DB 

LDA 

PUSH 

CALL 

POP 

STA 



LXI 

CALL 

LXI 

DCR 

RNZ 

LXI 
CALL 



LXI 
MVI 
XRA 
RET 



030H,CHKS2-$-l ; FAKE JRNC INSTRUCTION 



080H 

BADIO 

028H,BADIO-$-l 

CHKS3 

018H,CHKS3-$-l 



000H 

BADIO 

028H,BADIO-$-l 

01000000B 

CHKS3 

028H,CHKS3-$-l 

POINT 

A,M 

01000000B 

020H 

A f M 

020H 

C,20 

DELAY 



IS FLOPPY DISK NOT READY ? 
YES, DONT BOTHER WITH RETR 

FAKE JRZ INSTRUCTION 

GO TO BAD MESSAGE ROUTINE 
FAKE JR INSTRUCTION - 



IS HARD DISK NOT READY ?? 
YES, BYPASS ERROR MESSAGE 

FAKE JRZ INSTRUCTION 

IS IT WRITE FAULT ?? 
NO, CONTINUE ON 

FAKE JRZ INSTRUCTION 

POINT TO TRACK REGISTER 
POINT TO SELECT MASK 

TURN ON WRITE FAULT CLEAR 

RESET CLEAR 

DELAY JUST TO BE SAFE 



HOME $ TOGGLE 

A 

CHKS4 

020H,CHKS4-$-l ; FAKE JRNZ INSTRUCTION 



;IS A HOME NEEDED ON THIS R 



STATUS 

PSW 

HOME 

PSW 

STATUS 



D,TCNT 
ADDERRORS 
H,T$RETRIES 
M 



D , PCNT 
ADDERRORS 



H,ERFLAG 

M,001H 

A 



;SAVE STATUS OVER HOME 
; RESET DEVICE TO HOME 
•SAVE FOR ERROR MESSAGE 

BUMP TEMP ERROR COUNT 

PICKUP RETRY COUNT 
DECREMENT COUNT OF RETRIES 

BUMP PERMANENT ERROR COUNT 



;SET PERMANENT ERROR 

;DO IT. . . . 

; RESET TO PRECLUDE RETRIES 

; RETURN TO CALLER 



ADDERRORS : 
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070F 2AAC00 
0712 2600 

0714 19 

0715 34 

0716 C9 



LHLD 


DISKNO 


MVI 


H,000H 


DAD 


D ; 


INR 


M ; 


RET 





BUMP COUNT OF DISK ERRORS 
POINT TO ERROR REGISTER 



PAGE 



itiiiiiiiiiiiitiiitiiiiiiitiiiiiiiittiiiitiiitiiiiiiiiiiiti 



THIS IS HARD DISK WAIT ENTRY 



tiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiitiitiitiiiiiiiiiiiiiiiiiti 



WAIT0 



0717 C5 

0718 0E84 
071A 1E05 
071C CD100B 
071F CI 



0720 C9 



SAVE RETRY COUNT 
FUNCTION FLAG WAIT 
DEVICE IS HARD DISK 

; RESTORE RETRY COUNTER IN 



READ OR WRITE IS OK, ACCUMULATOR CONTAINS ZERO 
RET 



PUSH 


B 


MVI 


CFLAGWT 


MVI 


E,HDFLAG 


CALL 


XDOS 


POP 


B 



99999999^9 9 999999999 9 999999999999999999999999999999999999999 

• ■ ■■ 

; THE FOLLOWING CODE GUARANTEES THAT HARD DISK FLAG I 
; IT APPEARS THAT WE OCCASIONALLY GET FLAG SET AS A R 
; OF AN INTERRUPT FROM THE HARD DISK, WHEN WE DO 
NOT EXPECT IT. 



t i i i i i i i i i i i i i i i t i i i i i i i i i i i i t i i i i i i i i i i i i i i i i i i i i i i i i t t i i i 







INTFIX: 




0721 


F5 


PUSH 


PSW 


0722 


C5 


PUSH 


B 


0723 


D5 


PUSH 


D 


0724 


E5 


PUSH 


H 


0725 


0E85 


MVI 


C,FLAGST 


0727 


1E05 


MVI 


E,HDFLAG 


0729 


CD100B 


CALL 


XDOS 



072C 0E84 
072E 1E05 
0730 CD100B 

0733 El 

0734 Dl 



MVI 
MVI 
CALL 

POP 
POP 



CFLAGWT 
E,HDFLAG 
XDOS 

H 
D 



; EITHER FLAG 5 WILL BE SET 
;IT IS ALREADY SET - IN WHI 
;THIS REQUEST WILL BE IGNOR 



;NOW CLEAR THE FLAG 
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0735 CI 

0736 Fl 

0737 D323 
0739 C9 



POP 
POP 

OUT 

RET 

PAGE 



B 

PSW 

023H 



; RESTORE REGISTERS 

; ISSUE COMMAND TO HARD DISK 



i i i i i i i i i i i i i i i i i i i i r i i t i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



THIS IS FLOPPY DISK WAIT ENTRY 



i i i i i i i i i i > i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



073A C5 
073B E5 
073C 0E84 
073E 1E06 
0740 CD100B 

0743 F5 

0744 3AD00D 
0747 B7 

0748+2015 



074A 
074C 
074E 
0750 
0752 
0755 
0757 
0759 
075C 



DB09 

E618 

D309 

0E01 

CD8207 

F602 

D309 

3AE60A 

32AC00 



075F Fl 

0760 El 

0761 CI 



FPYWAIT: 

PUSH 

PUSH 

MVI 

MVI 

CALL 

PUSH 

LDA 

ORA 

JRNZ 

DB 

IN 
AN I 
OUT 
MVI 
CALL 
ORI 
OUT 
LDA 
STA 
NOFPYRST : 

POP 
POP 
POP 



;SAVE RETRY COUNT 



B 

H 

C,FLAGWT 

E,FPYFLAG 

XDOS 

PSW 

FPYTIME 

A 

NOFPYRST 

020H,NOFPYRST-$-l 

009H 

00011000B 

009H 

c l ,i 

DELAY 

00000010B 

009H 

NEWDSK 

DISKNO 



PSW 

H 

B 



; FUNCTION IS FLAG WAIT 
; WAIT FOR FLOPPY 



DID WD1791 GO TO SLEEP? 

IF STILL AWAKE, SKIP RESET 
. FAKE JRNZ INS 

GET CURRENT BANK NUMBER 
REMOVE OTHER INFO 
RESET WD1791 
DELAY 1 MILLISEC 

END RESET 

MAKE SURE CURRENT DISK AND 
THE SAME 



; RESTORE RETRY COUNT IN <C> 



0762 C9 



RET 



i i i i i i i i i i i i i i i i i i i i i i i i i i t i t i i i i i i i i i i t i i i i i i i i i i i i i i i i i i i 

m 
I 

THE FOLLOWING CODE GUARANTEES THAT FLOPPY DISK FLAG 

rrrftirrirriirfrrrtiiiriitii7iifiiitiriiritrtttriiritirtitt 





FINTFIX: 




0763 F5 


PUSH 


PSW 


0764 C5 


PUSH 


B 


0765 D5 


PUSH 


D 


0766 E5 


PUSH 


H 
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0767 0E85 

0769 1E06 
076B CD100B 

076E 0E84 

0770 1E06 
0772 CD100B 

0775 210301 
0778 22D00D 

077B El 
077C Dl 
077D CI 
077E Fl 

077F D304 

0781 C9 



FPYTIME: 



MVI 
MVI 
CALL 

MVI 
MVI 
CALL 

LXI 
SHLD 

POP 
POP 
POP 
POP 

OUT 

RET 

if 

DW 



FPYTCNT: 



DW 
end if 

PAGE 



C f FLAGST 

E,FPYFLAG 

XDOS 

C,FLAGWT 

E,FPYFLAG 

XDOS 

H,00103H 
FPYTIME 

H 
D 
B 
PSW 

004H 



not mpm20 






;SET TIME OUT INDICATOR ON 
: TIME TO BE BETWEEN 2 AND 



; ISSUE COMMAND TO FLOPPY DI 



THIS IS THE DELAY ROUTINE. IT WILL LOOP HERE FOR TH 
NUMBER OF MILLISECONDS SPECIFIED IN REGISTER C. 







DELAY: 






0782 


0664 


DELI: 


MVI 


B,10 


0784 


00 


DEL2: 


NOP 




0785 


29 




DAD 


H 


0786 


29 




DAD 


H 


0787 


05 




DCR 


B 


0788 


C28407 




JNZ 


DEL 2 


078B 


0D 




DCR 


C 


078C 


C28207 




JNZ 


DELI 


078F 


C9 




RET 





FORCE DELAY FOR 1 MILLISEC 
INSTRUCTIONS TO FILL IN TI 



AT ONE MILLISECOND YET ?? 

NO, KEEP ON LOOPING 

END OF REQUESTED INTERVAL 

NO, KEEP ON 

RETURN TO CALLER 



******************************************** 

* NOTE: THE INITIALIZATION CODE WILL BE 

* OVERWRITTEN BY DIRBUF & FPYBUF 
******************************************** 
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DIRBUF 



if 

EQU 

endif 



not mpm20 
$ 



DISK CONFIGURATION TABLE 







IF 


HARDSK 


0790 


0000000000DSCN0: 


DB 


00H,00H,00H, 


0798 


1000000000 


DB 


10H,00H,00H, 


07A0 


9090900000 


DB 


90H,90H,90H, 


07A8 


0000000000 


DB 


00H,00H,00H, 


07B0 


1000002000 


DB 


10H,00H,00H, 


07B8 


0000000000 


DB 


00H,00H,00H, 


07C0 


9090902000 


DB 


90H,90H,90H, 


07C8 


909090A0A0 


DB 
ENDIF 


90H r 90H,90H, 



PIN C 



00H,00H,00H,00H,00H 
00H,00H,00H,10H,00H 
00H,00H,00H,00H,00H 
00H,00H,00H,00H,00H 
20H,00H,00H,10H,20H 
00H,00H,00H,00H,00H 
20H,00H,00H,00H,20H 
OAOH , OAOH , OAOH , OH , OH 



SET UP DISK CONFIGURATON 

[ THIS CODE EXECUTED ONLY ONCE ] 



07D0 


217E00 


SDCONF : 


LXI 


H,SEL0+2 


07D3 


3AB600 




LDA 


MP ARMS 


07D6 


E605 




AN I 


05H 


07D8 


C3DE07 




JMP 


SDDBL 


07DB 


77 




MOV 


M,A 


07DC 


23 




INX 


H 


07DD 


77 


SDDBL : 


MOV 


M,A 


07DE 


118000 




LXI 
IF 


D,SEL0+4 
HARDSK 


07E1 


DB25 




IN 


025H 


07E3 


E607 




AN I 


07H 


07E5 


17 




RAL 




07E6 


17 




RAL 




07E7 


17 




RAL 




07E8 


0600 




MVI 


B,0 


07EA 


4F 




MOV 


C,A 


07EB 


219007 




LXI 


H,DSCN0 


07EE 


09 




DAD 


B 


07EF 


0608 




MVI 


B,8 


07F1 


7E 


SDL1: 


MOV 


A,M 


07F2 


12 




STAX 


D 


07F3 


13 


SDOK: 


INX 


D 



POINT TO DRIVE C: 

TEST FOR FOUR FLOPPIES 
YES SKIP THE ZAP 

ZAP C: AND D: 



; POINT TO DRIVE E: 

READ CONFIGURATION PORT 
STRIP OFF HIGH PART 



POINT TO CONFIGURATION TAB 
INDEX TO RIGHT ENTRY 
CHANGE ALL SELECT MASKS 
NEXT 
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07F4 23 
07F5+10FA 



SDL2: 



INX 


H ; 


DJNZ 


SDL1 


DB 


010H,SDLl-$-l 


ENDIF 




IF 


NOT HARDSK 


XCHG 




MVI 


B,8 ; 


XRA 


A 


MOV 


M,A 


INX 


H 


DJNZ 


SDL2 ; 


ENDIF 





DRIVE 
FAKE DJNZ INSTRUCTION 



07F7 


C9 




RET 






07F8 


= 


IN I TEND 


EQU 


$ 




07F8 


E5 


XETMOD : 


PUSH 


H 




07F9 


79 




MOV 


A,C 




07FA 


B7 




ORA 


A 




07FB 


0E00 




MVI 
JRZ 


C,000H 
XETSEL 




07FD+2802 




DB 


028H,XETSEL- 


■$-1 


07FF 


0E01 




MVI 


C,001H 




0801 


CD7802 


XETSEL: 


CALL 


SETDEN 




0804 


El 




POP 


H 




0805 


6E 




MOV 


L,M 




0806 


2600 




MVI 


H,000H 




0808 


7D 




MOV 


A,L 




0809 


29 




DAD 


H 




080A 


29 




DAD 


H 




080B 


E5 




PUSH 


H 




080C 


29 




DAD 


H 




080D 


Dl 




POP 


D 




080E 


19 




DAD 


D 




080F 


119101 




LXI 


D,MODL0 




0812 


19 




DAD 


D 




0813 


EB 




XCHG 






0814 


2AB200 




LHLD 


DPEPTR 




0817 


EB 




XCHG 






0818 


010C00 




LXI 
LDIR 


B,12 




081B+EDB0 




DB 


0EDH r 0B0H 




081D 


C9 




RET 







ZAP ALL HARD DRIVES 



SAVE MODE BYTE ADDRESS 
SETUP FOR DENSITY CHANGE 

ASSUME SINGLE DENSITY MODE 
VERIFY ASSUMPTION 

FAKE JRZ INSTRUCTION 

SET FOR DOUBLE DENSITY MOD 

SET DENSITY BASED ON LOW B 

RESTORE 

PICKUP MODE AGAIN 

FOR SINGLE BYTE PRECISION 

SAVE MODE IN ACCUMULATOR F 

* 2 

* 4 
SAVE * 4 

* 8 
REGAIN * 4 

* 12 

FIRST MODEL DPE 

POINT TO THIS ONE 

SETUP TEMPORARILY AS DESTI 

ADDRESS OF CURRENTLY SELEC 

SETUP TO ALTER 

LENGTH FOR MOVE 

DO MOVE 

FAKE LDIR INSTRUCTION 

RETURN TO CALLER 



PAGE 



THE FOLLOWING AREA CONTAINS THE DISK/WORK SAVE AREA 
USED BY THE CBIOS IN THE NORMAL COURSE OF ACTIVITY. 
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(dirbuf-base)+128 



if mpm20 
; tempbuf equ 

else 
TEMPBUF EQU (DIRBUF-BASE) +256 

ORG TEMPBUF+ ( (INITEND-BASE) /TEMPBUF) * ( (INITEND-BASE 

endif 



; START OF BDOS AREA 
; OVERLAYS SYSTEMINIT CODE 



081E = 


BEGDAT 


EQU 


$ 




; DIRBUF 


• 
• 


DS 12 


081E 


ALVO: 


DS 


32 


083E 


CSVO: 


DS 


32 


085E 


ALV1: 


DS 


32 


087E 


CSV1: 


DS 


32 


089E 


ALV2: 


DS 


32 


08BE 


CSV2: 


DS 


32 


08DE 


ALV3: 


DS 


32 


08FE 


CSV3 : 


DS 


32 






IF 


HARDSK 


091E 


ALV4' 




DS 


64 


095E 


CSV4: 




DS 





095E 


ALV5- 




DS 


64 


099E 


CSV5: 




DS 





099E 


ALV6 




DS 


64 


09DE 


CSV6 




DS 





09DE 


ALV7- 




DS 


64 


0A1E 


CSV7: 




DS 





0A1E 


ALV8 




DS 


64 


0A5E 


CSV8: 




DS 





0A5E 


ALV9- 




DS 


64 


0A9E 


CSV9: 




DS 





0A9E 


ALVA 




DS 


36 


0AC2 


CSVA 




DS 





0AC2 


ALVB« 




DS 


36 


0AE6 


CSVB: 




DS 









endif 








if 


mdisk 




ALVC: 


DS 


32 




CSVC: 


DS 
endif 









if 


not mpm20 






if 


hardsk 






DS 


1 




HSTBUF: 


DS 


1024 






DS 


1 






ENDIF 






FPYBUF 


EQU 
endif 


DIRBUF+128 


0AE6 


NEWDSK : 


DS 


1 


0AE7 


NEWTRK : 


DS 


2 


0AE9 


NEWSI 


2Ct 


DS 


1 



/VIRTUAL DISK 



MUST PRECEDE HSTBU 
HOST BUFFER AREA 
MUST FOLLOW HSTBUF 



FLOPPY I/O BUFFER 



;SEEK DISK NUMBER 
;SEEK TRACK NUMBER 
;SEEK SECTOR NUMBER 
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OAEA 




HSTDSK: 


DS 


1 


OAEB 




HSTTRK: 


DS 


2 


OAED 




HSTSEC: 


DS 


1 


Oaee 




NEWHST : 


DS 


1 


OAEF 




HSTACT: 


DS 


1 


OAFO 




HSTWRT : 


DS 


1 


OAF1 




UNACNT: 


DS 


1 


OAF 2 




UNADSK: 


DS 


1 


OAF 3 




UNATRK: 


DS 


2 


OAF 5 




UNASEC: 


DS 


1 


0AF6 




ERFLAG: 


DS 


1 


OAF 7 




RSFLAG : 


DS 


1 


OAF 8 




READOP: 


DS 


1 


OAF 9 




WRTYPE : 


DS 


1 


OAFA 


00 


CMD: 


DB 





OAFB 


00 


MASK: 


DB 





OAFC 


00 


STATUS : 


DB 





OAFD 


00000000 


SAVE1: 


DB 


000H,000H,000H,000H 


OBOl 


00 


P$RETRIES: DB 


OOOH 


0B02 


00 


T$RETRIES: DB 
HOME$TOGGLE : 


OOOH 


0B03 


00 




DB 


OOOH 



;HOST DISK NUMBER 
;HOST TRACK NUMBER 
;HOST SECTOR NUMBER 

;SEEK SHR SECSHF 
;HOST ACTIVE FLAG 
;HOST WRITTEN FLAG 

; UNALLOCATED RECORD 
;LAST UNALLOCATED D 
;LAST UNALLOCATED T 
;LAST UNALLOCATED S 

; ERROR REPORTING 
;READ SECTOR FLAG 
;1 IF READ OPERATIO 
; WRITE OPERATION TY 

; COMMANDS FOR NEXT 
; STATUS MASKS BUFFE 
; STATUS SAVE LOCATI 

;SAVE AREA FOR NMI 
; COUNTER FOR PERMAN 
; COUNTER FOR TEMPOR 

INDICATOR TO TELL 
; . . IF HOME SHOULD 



page 
if 



mpm20 



********************************************************* 
* 

* MP/M2.0 COMMON BASE 

* 

********************************************************* 







commonbase: 




0B04 


C3150B 


jmp 


coldstart 


OB07 


C30000 


swtuser: jmp 


$-$ 


OBOA 


C30000 


swtsys: jmp 


$-$ 


OBOD 


C30000 


pdisp: jmp 


$-$ 


0B10 


C30000 


xdos: jmp 


$-$ 


0B13 


0000 


sysdat: dw 
COLDSTART : 
WARMSTART: 


$-$ 


0B15 


0E00 


MVI 


C,0 ; 


OB 17 


C3100B 


JMP 


XDOS ; 



SEE SYSTEM INIT 
COLD & WARM START INCLUDE 
FOR COMPATIBILITY WITH CP 
SYSTEM RESET, TERMINATE P 
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rtnempty: 




OBI A AF 


xra 


a 


0B1B C9 


ret 
NULL $ INT: 




0B1C FB 


EI 
RET I 




0B1D+ED4D 


DB 
endif 


0EDH,04DH 



. FAKE RETI INSTRUCTION 



CENTRONICS PRINTER ROUTINE (WITH SEPARATE BUSY TEST 







CNSTAT : 




0B1F 


3E01 


MVI 


A r 001H 


0B21 


D310 


OUT 


01 OH 


0B23 


DB10 


IN 


010H 


0B25 


E620 


AN I 


020H 


0B27 


3EFF 


MVI 


A r 0FFH 


0B29 


C8 


RZ 




0B2A 


AF 


XRA 


A 


0B2B 


C9 


RET 

• 

CLIST: 


„.,, .. ■ , , 


0B2C 


CD IF OB 


CALL 


CNSTAT 


0B2F 


B7 


ORA 


A 






JRNZ • 


CLIST1 


0B30+2009 


DB 


020H r CL 


0B32 


C5 


PUSH 


B 


0B33 


0E83 


MVI 


C,POLL 


0B35 


1E00 


MVI 


E,PLLPT 


0B37 


CD100B 


CALL 


XDOS 


0B3A 


CI 


POP 
CLIST1: 


B 


0B3B 


79 


MOV 


A,C 


0B3C 


D311 


OUT 


011H 


0B3E 


3E00 


MVI 


A,000H 


0B40 


D310 


OUT 


010H 


0B42 


3E01 


MVI 


A,001H 


0B44 


D310 


OUT 


010H 


0B46 


C9 


RET 





TO SET STROBE HIGH 

READ PRINTER STATUS 

REMOVE ALL BUT BUSY BIT 

ASSUME NOT BUSY 

CHECK ASSUMPTION 

SET TO SHOW STILL BUSY 



;IS PRINTER READY NOW? 

;IF READY, SKIP POLL 
020H,CLISTl-$-l ; FAKE JRNZ INSTRUCTION 



POLL DEVICE 
PRINTER 
WAIT FOR PRINTER TO FREE U 



CHARACTER TO PRINT 
WRITE IT TO DATA PORT 
TO FORCE STROBE LOW 

TO FORCE STROBE HIGH 



PAGE 



DISK INTERRUPT ROUTINE 
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FLOPPY$ 


INT: 




0B47 


22C80D 




SHLD 


SVDHL 


0B4A 


21500B 




LXI 


H, FDINTH 


0B4D 


C37F0D 


FDINTH: 


JMP 


INTINIT 


0B50 


DB04 




IN 


004H 


0B52 


32FC0A 




STA 


STATUS 


0B55 


3E00 




MVI 


A,0 


0B57 


32D10D 




STA 


FPYTIME+1 


0B5A 


1E06 




MVI 
JR 


E,FPYFLAG 
HDSTFLG 


0B5C+1813 




DB 


018H,HDST] 






HARD$INT: 




0B5E 


22C80D 




SHLD 


SVDHL 


0B61 


21670B 




LXI 


H, HDINTH 


0B64 


C37F0D 


HDINTH: 


JMP 


INTINIT 


0B67 


DB24 




IN 


024H 


0B69 


32FC0A 




STA 


STATUS 


0B6C 


AF 




XRA 


A 


0B6D 


D323 




OUT 


023H 


0B6F 


1E05 


HDSTFLG 


MVI 

• 


E,HDFLAG 


0B71 


0E85 




MVI 


CFLAGST 


0B73 


CD100B 




CALL 


XDOS 


0B76 


C3670D 




JMP 


INTDONE 



PAGE 



;GET STATUS 

; SAVE FOR I/O ROUTINE 

;STOP TIMING OF RESPONSE TO 

• 

;SHOW I/O COMPLETED 

; FAKE JR INSTR 



;GET STATUS 

;SAVE FOR CHECK LATER 



; RESET INTERRUPT BY RELOADI 
;SHOW I/O COMPLETED 



CONSOLE DISPLAY ROUTINES 







• 

CONST: 






• CONSOLE 


STATUS 


0B79 


CD9A0B 




CALL 


PTBLJMP ', 


i COMPUTE 


AND JUMP TO HNDLR 


0B7C 


ADOB 




DW 


PTOST | 


; CONSOLE 


#0 STATUS ROUTINE 


0B7E 


ECOB 




DW 


PT1ST 


; CONSOLE 


#1 STATUS ROUTINE 


0B80 


2B0C 




DW 


PT2ST j 


- CONSOLE 


#2 STATUS ROUTINE 


0B82 


6A0C 


CON IN: 


DW 


PT3ST 


; CONSOLE 
■ CONSOLE 


#3 STATUS ROUTINE 
INPUT 


0B84 


CD9A0B 




CALL 


PTBLJMP \ 


} COMPUTE 


AND JUMP TO HNDLR 


0B87 


B80B 




DW 


PTOIN 


I CONSOLE 


#0 INPUT 


0B89 


F70B 




DW 


PT1IN 


} CONSOLE 


#1 INPUT 


0B8B 


360C 




DW 


PT2IN 


- f CONSOLE 


#2 INPUT 


0B8D 


750C 


CONOUT : 


DW 


PT3IN 


', CONSOLE 
; CONSOLE 


#3 INPUT 
OUTPUT 
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0B8F CD9A0B 
0B92 CAOB 
0B94 090C 
0B96 480C 
0B98 870C 



CALL 

DW 

DW 

DW 

DW 



PTBLJMP 

PTOOUT 

PTIOUT 

PT20UT 

PT30UT 



COMPUTE AND JUMP TO HNDLR 
CONSOLE #0 OUTPUT 
CONSOLE #1 OUTPUT 
CONSOLE #2 OUTPUT 
CONSOLE #3 OUTPUT 



PTBLJMP : 



0B9A 7A 
0B9B FE04 

0B9D+3803 
0B9F Fl 
0BA0 AF 
0BA1 C9 



0BA2 87 
0BA3 El 
0BA4 5F 
0BA5 1600 
0BA7 19 
0BA8 5E 
0BA9 23 
OBAA 56 
OBAB EB 
OB AC E9 



TBLJMP : 



MOV 

CPI 

JRC 

DB 

POP 

XRA 

RET 



ADD 

POP 

MOV 

MVI 

DAD 

MOV 

INX 

MOV 

XCHG 

PCHL 



COMPUTE AND JUMP TO HANDLER 

D = CONSOLE # 

DO NOT DESTROY <D> 
A,D 
NMBCNS 
TBLJMP 

3 8H, TBLJMP- $-1 ; FAKE JRC INSTRUCTION 

PSW ; THROW AWAY TABLE ADDRESS 
A 



A 

H 

E,A 

D,0 

D 

E,M 

H 

D,M 



COMPUTE AND JUMP TO HANDLER 

A = TABLE INDEX 

DOUBLE TABLE INDEX FOR ADR OFFST 

RETURN ADR POINTS TO JUMP TBL 



ADD TABLE INDEX * 2 TO TBL BASE 
GET HANDLER ADDRESS 



; JUMP TO COMPUTED CNS HANDLER 



PAGE 



SERIAL PORT ADDRESS EQUATES 



001C 


= 


DATA0 


EQU 


01CH 


) CONSOLE 


#0 


DATA 


001D 


=s 


STS0 


EQU 


DATA0+1 


•CONSOLE 


#0 


STATUS 


002C 


= 


DATA1 


EQU 


02CH 


} CONSOLE 


#1 


DATA 


002D 


= 


STS1 


EQU 


DATA 1+1 


; CONSOLE 


#1 


STATUS 


002E 


= 


DATA2 


EQU 


02EH 


•CONSOLE 


#2 


DATA 


002F 


= 


STS2 


EQU 


DATA2+1 


•CONSOLE 


#2 


STATUS 


002A 


= 


DATA3 


EQU 


02 AH 


-, CONSOLE 


#3 


DATA 


002B 


= 


STS3 


EQU 


DATA3+1 ; 


•CONSOLE 


#3 


STATUS 


001E 


= 


LPTPRT0 


EQU 


01EH j 


) PRINTER 


#0 


DATA 


001F 


= 


LPTSTS0 


EQU 


LPTPRT0+1 


• PRINTER 


#0 


STATUS 


0028 


=z 


LPTPRT1 


EQU 


028H ; 


? PRINTER 


#1 


DATA 


0029 


= 


LPTSTS1 


EQU 


LPTPRT1+1 


; PRINTER 


#1 


STATUS 
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POLL CONSOLE # INPUT 





POLCIO: 








PTOST: 






OBAD AF 




XRA 


A 


OBAE D31D 




OUT 


STSO 


OBBO DB1D 




IN 


STSO 


0BB2 E601 




ANI 


1 


0BB4 C8 




RZ 




0BB5 3EFF 




MVI 


A, OF 


0BB7 C9 




RET 





TEST CONSOLE STATUS 
RETURN OFFH IF READY 
000H IF NOT 

RX CHAR ? 
NO 
YES - SET FLAG 



CONSOLE # INPUT 





PTOIN: 






0BB8 CDADOB 




CALL 


POLCIO 


OBBB B7 




ORA 


A 






JRNZ 


PT0IN1 


OBBC+2007 




DB 


020H,PT0INl-$-l 


OBBE 0E83 




MVI 


C,POLL 


OBCO 1E05 




MVI 


E r PLCI0 


0BC2 CD100B 




CALL 


XDOS 


0BC5 DB1C 


PT0IN1: 


IN 


DATAO 


0BC7 E67F 




ANI 


7FH 


0BC9 C9 




RET 





RETURN CHAR IN REG A 
IS IT READY NOW? 

IF READY, SKIP POLL 

FAKE JRNZ INSTRUCTION 

POLL CONSOLE #0 INPUT 

READ CHARACTER 
STRIP PARITY 



CONSOLE # OUTPUT 





PTOOUT: 






OBCA CDDDOB 




CALL 


POLCOO 


OBCD B7 




ORA 


A 






JRNZ 


PTOOUT 1 ; 


OBCE+2009 




DB 


020H,PT0OUTl-$-l 


OBDO C5 




PUSH 


B 


0BD1 0E83 




MVI 


C,POLL 


0BD3 1E01 




MVI 


E,PLCO0 ; 


0BD5 CD100B 




CALL 


XDOS ; 


0BD8 CI 




POP 


B 




PT0OUT1 


• 
• 




0BD9 79 




MOV 


A,C 


OBDA D31C 




OUT 


DATAO 



REG C = CHAR TO OUTPUT 
IS IT READY NOW? 

IF READY, SKIP POLL 

. FAKE JRNZ INS 



POLL CONSOLE #0 OUTPUT 



TRANSMIT CHARACTER 
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OBDC C9 



RET 



POLL CONSOLE # OUTPUT 





POLCOO : 




OBDD 3E10 


MVI 


A,10H 


OBDF D31D 


OUT 


STSO 


0BE1 DB1D 


IN 


STSO 


0BE3 E60C 


AN I 


OCH 


0BE5 FEOC 


CPI 


OCH 


0BE7 3E00 


MVI 


A,0 


0BE9 CO 


RNZ 




OBEA 3D 


DCR 


A 


OBEB C9 


RET 





RETURN OFFH IF READY 

00 OH IF NOT 
RESET INT BIT 
READ STATUS 
MASK FOR DTR AND TXE 
MUST HAVE BOTH 

RETURN NOT READY 
CHANGE "A" TO OFFH 
RETURN READY 



PAGE 



POLL CONSOLE # 1 INPUT 





POLCI1: 








PT1ST: 






OBEC AF 




XRA 


A 


OBED D32D 




OUT 


STS1 


OBEF DB2D 




IN 


STS1 


0BF1 E601 




AN I 


1 


0BF3 C8 




RZ 




0BF4 3EFF 




MVI 


A, OF 


0BF6 C9 




RET 





TEST CONSOLE STATUS 
RETURN OFFH IF READY 
000H IF NOT 

RX CHAR ? 
NO 
YES - SET FLAG 



CONSOLE # 1 INPUT 



0BF7 CDECOB 


PT1IN: 


CALL 


POLCI1 


OBFA B7 




ORA 


A 






JRNZ 


PT1IN1 


OBFB+2007 




DB 


020H,PTlINl-$-l 


OBFD 0E83 




MVI 


C,POLL 


OBFF 1E06 




MVI 


E f PLCIl 


0C01 CD100B 




CALL 


XDOS 


0C04 DB2C 


PT1IN1: 


IN 


DATA1 


0C06 E67F 




AN I 


7FH 



RETURN CHAR IN REG A 
READY NOW? 

IF READY, SKIP POLL 

FAKE JRNZ INSTRUCTION 

POLL CONSOLE #1 INPUT 

READ CHARACTER 
STRIP PARITY 
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0C08 C9 



RET 



CONSOLE # 1 OUTPUT 





PT10UT: 








0C09 CD1C0C 




CALL 


POLCOl 




OCOC B7 




ORA 
JRNZ 


A 
PT10UT1 




0C0D+2009 




DB 


020H,PTlOUTl-$- 


-1 


OCOF C5 




PUSH 


B 


• 


0C10 0E83 




MVI 


C , POLL 


7 


0C12 1E02 




MVI 


E,PLC01 


/ 


0C14 CD100B 




CALL 


XDOS 


i 


0C17 CI 


PT10UT1 


POP 

• 


B 


• 


0C18 79 




MOV 


A,C 




0C19 D32C 




OUT 


DATA1 




0C1B C9 




RET 







REG C = CHAR TO OUTPUT 
ARE WE READY NOW? 

IF READY, SKIP POLL 

; FAKE JRNZ INS 



POLL CONSOLE #1 OUTPUT 



TRANSMIT CHARACTER 



POLL CONSOLE # 1 OUTPUT 





POLCOl: 




0C1C 3E10 


MVI 


A,10H 


0C1E D32D 


OUT 


STS1 


0C20 DB2D 


IN 


STS1 


0C22 E60C 


ANI 


OCH 


0C24 FEOC 


CPI 


OCH 


0C26 3E00 


MVI 


A,0 


0C28 CO 


RNZ 




0C29 3D 


DCR 


A 


0C2A C9 


RET 





RETURN OFFH IF READY 

00 OH IF NOT 
RESET INT BIT 
READ STATUS 
MASK FOR DTR AND TXE 
MUST HAVE BOTH 

RETURN NOT READY 
CHANGE "A" TO OFFH 
RETURN READY 



PAGE 



0C2B AF 



POLL CONSOLE # 2 INPUT 



POLCI2: 
PT2ST: 



XRA 



; TEST CONSOLE STATUS 

; RETURN OFFH IF READY 
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0C2C D32F 
0C2E DB2F 
0C30 E601 
0C32 C8 
0C33 3EFF 
0C35 C9 



OUT 


STS2 


IN 


STS2 


ANI 


1 


RZ 




MVI 


A, OF 


RET 





000H IF NOT 

RX CHAR ? 
NO 
YES - SET FLAG 



CONSOLE # 2 INPUT 





PT2IN: 






0C36 CD2B0C 




CALL 


POLCI2 


0C39 B7 




ORA 


A 






JRNZ 


PT2IN1 


0C3A+2007 




DB 


020H,PT2INl-$-l 


0C3C 0E83 




MVI 


C,POLL 


0C3E 1E07 




MVI 


E,PLCI2 


0C40 CD100B 




CALL 


XDOS 


0C43 DB2E 


PT2IN1: 


IN 


DATA2 


0C45 E67F 




ANI 


7FH 


0C47 C9 




RET 





RETURN CHAR IN REG A 
READY NOW? 

IF READY, SKIP POLL 

FAKE JRNZ INSTRUCTION 

POLL CONSOLE #2 INPUT 

READ CHARACTER 
STRIP PARITY 



CONSOLE # 2 OUTPUT 





PT20UT: 






0C48 CD5B0C 




CALL 


POLC02 


0C4B B7 




ORA 


A 






JRNZ 


PT20UT1 


0C4C+2009 




DB 


020H,PT2OUTl-$-l 


0C4E C5 




PUSH 


B 


0C4F 0E83 




MVI 


C , POLL 


0C51 1E03 




MVI 


E f PLC02 ; 


0C53 CD100B 




CALL 


XDOS 


0C56 CI 




POP 


B 




PT20UT1 


: 




0C57 79 




MOV 


A,C 


0C58 D32E 




OUT 


DATA2 


0C5A C9 




RET 





REG C = CHAR TO OUTPUT 
READY NOW? 

IF READY, SKIP POLL 

. FAK E JRNZ INS 



POLL CONSOLE #2 OUTPUT 



TRANSMIT CHARACTER 



POLL CONSOLE # 2 OUTPUT 



POLC02: 



; RETURN OFFH IF READY 
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0C5B 


3E10 


0C5D 


D32F 


0C5F 


DB2F 


0C61 


E60C 


0C63 


FEOC 


0C65 


3E00 


0C67 


CO 


0C68 


3D 


0C69 


C9 



MVI 

OUT 

IN 

ANI 

CPI 

MVI 

RNZ 

DCR 

RET 

PAGE 



A,10H 

STS2 

STS2 

OCH 

OCH 

A,0 



000H IF NOT 
RESET INT BIT 
READ STATUS 
MASK FOR DTR AND TXE 
MUST HAVE BOTH 

RETURN NOT READY 
CHANGE "A" TO OFFH 
RETURN READY 



POLL CONSOLE # 3 INPUT 





POLCI3: 








PT3ST: 






0C6A AF 




XRA 


A 


0C6B D32B 




OUT 


STS3 


0C6D DB2B 




IN 


STS3 


0C6F E601 




ANI 


1 


0C71 C8 




RZ 




0C72 3EFF 




MVI 


A, OF 


0C74 C9 




RET 





TEST CONSOLE STATUS 
RETURN OFFH IF READY 
000H IF NOT 

RX CHAR ? 
NO 
YES - SET FLAG 



CONSOLE # 3 INPUT 





PT3IN: 




0C75 CD6A0C 




CALL 


0C78 B7 




ORA 
JRNZ 


0C79+2007 




DB 


0C7B 0E83 




MVI 


0C7D 1E08 




MVI 


0C7F CD100B 




CALL 


0C82 DB2A 


PT3IN1: 


IN 


0C84 E67F 




ANI 


0C86 C9 




RET 



POLCI3 

A 

PT3IN1 

020H,PT3INl-$-l 

C,POLL 

E,PLCI3 

XDOS 

DATA 3 

7FH 



RETURN CHAR IN REG A 
READY NOW? 

IF READY, SKIP POLL 

FAKE JRNZ INSTRUCTION 

POLL CONSOLE #3 INPUT 

READ CHARACTER 
STRIP PARITY 



CONSOLE # 3 OUTPUT 
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PT30UT: 






0C87 CD9A0C 




CALL 


POLC03 ; 


0C8A B7 




ORA 


A 






JRNZ 


PT30UT1 


0C8B+2009 




DB 


020H,PT3OUTl-$-l 


0C8D C5 




PUSH 


B 


0C8E 0E83 




MVI 


C,POLL ; 


0C90 1E04 




MVI 


E,PLC03 ; 


0C92 CD100B 




CALL 


XDOS 


0C95 CI 




POP 


B 




PT30UT1 


; 




0C96 79 




MOV 


A,C 


0C97 D32A 




OUT 


DATA3 ; 


0C99 C9 




RET 





REG C = CHAR TO OUTPUT 
READY NOW? 

IF READY, SKIP POLL 

. FA ke JRNZ INS 



POLL CONSOLE #3 OUTPUT 



TRANSMIT CHARACTER 



POLL CONSOLE # 3 OUTPUT 





POLC03: 




0C9A 3E10 


MVI 


A,10H 


0C9C D32B 


OUT 


STS3 


0C9E DB2B 


IN 


STS3 


OCAO E60C 


ANI 


OCH 


0CA2 FEOC 


CPI 


OCH 


0CA4 3E00 


MVI 


A,0 


0CA6 CO 


RNZ 




0CA7 3D 


DCR 


A 


0CA8 C9 


RET 





RETURN OFFH IF READY 

00 OH IF NOT 
RESET INT BIT 
READ STATUS 
MASK FOR DTR AND TXE 
MUST HAVE BOTH 

RETURN NOT READY 
CHANGE "A" TO OFFH 
RETURN READY 
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0CA9 CDBCOC 
OCAC B7 

OCAD+2009 

OCAF C5 
0CB0 0E83 
0CB2 1E00 
0CB4 CD100B 
0CB7 CI 



LINE PRINTER #0 DRIVER 



LIST: 



CALL 


POLLPT 


ORA 


A 


JRNZ 


LIST1 


DB 


020H,LISTl-$-l ; 


PUSH 


B 


MVI 


C , POLL 


MVI 


E,PLLPT 


CALL 


XDOS 


POP 


B ; 



;LIST OUTPUT #0 

IS PRINTER READY NOW? 

IF READY, SKIP POLL 

— — FAKE JRNZ INSTRUCTION 



POLL PRINTER STATUS 
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LIST1: 






0CB8 


79 




MOV 


A,C 


0CB9 


D31E 




OUT 


LPTPRTO 


OCBB 


C9 




RET 





CHARACTER TO PRINT 



POLL PRINTER OUTPUT 





POLLPT: 




-, RETURN OFFH IF READY 


OCBC 3E10 


MVI 


A,10H 


i 000H IF NOT 


OCBE D31F 


OUT 


LPTSTSO 


; RESET INT BIT 


OCCO DB1F 


IN 


LPTSTSO 


} READ STATUS 


0CC2 E60C 


ANI 


OCH | 


• MASK FOR DTR AND TXE 


0CC4 FEOC 


CPI 


OCH 


} MUST HAVE BOTH 


0CC6 3E00 


MVI 


A,0 ; 




0CC8 CO 


RNZ 




} RETURN NOT READY 


0CC9 3D 


DCR 


A \ 


•CHANGE "A" TO OFFH 


OCCA C9 


RET 




} RETURN READY * 



PAGE 



MP/M 1.0 EXTENDED I/O SYSTEM 



OCCB 79 
OCCC FE09 

OCCE+3802 
OCDO 3E09 



0CD2 CDA20B 



POLLDEVICE : 



MOV 

CPI 

JRC 

DB 

MVI 



DEVOK : 



CALL 



REG C = DEVICE # TO BE POLLED 
RETURN OFFH IF READY, 
000H IF NOT 
A,C 

NMBDEV 
DEVOK 

038H,DEVOK-$-l ;- — - FAKE JRC INSTRUCTION 
A, NMBDEV; IF DEV # >= NMBDEV, 
; SET TO NMBDEV 

TBLJMP ; JUMP TO DEV POLL CODE 



DEVTBL: 



0CD5 BCOC 



0CD7 


DDOB 


0CD9 


1C0C 


OCDB 


5B0C 


OCDD 


9A0C 


OCDF 


ADOB 


0CE1 


ECOB 


0CE3 


2B0C 


0CE5 


6A0C 


0009 


— 



NMBDEV 



DW POLLPT ; POLL PRINTER OUTPUT - THIS WILL P 

; SPECIFIED PARALLEL PORT FOR PRIN 

DW POLCOO ; POLL CONSOLE #0 OUTPUT 

DW POLCOl ; POLL CONSOLE #1 OUTPUT 

DW POLC02 ; POLL CONSOLE #2 OUTPUT 

DW POLC03 ; POLL CONSOLE #3 OUTPUT 

DW POLCI0 ; POLL CONSOLE #0 INPUT 

DW POLCI1 ; POLL CONSOLE #1 INPUT 

DW POLCI2 ; POLL CONSOLE #2 INPUT 

DW POLCI3 ; POLL CONSOLE #3 INPUT 

EQU ($-DEVTBL)/2 
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0CE7 1A0B 



DW 
PAGE 



RTNEMPTY; BAD DEVICE HANDLER 



; SELECT / PROTECT MEMORY 



SELMEMORY: 



REG BC = ADR OF MEM DESCRIPTOR 













i BC -> BASE 1 BYTE, 












} SIZE 1 BYTE, 












) ATTRIB 1 BYTE, 












? BANK 1 BYTE. 












\ BIOS TABLE MODIFIED 


0CE9 


FE20 




CPI 


20H 




OCEB 


CAEBOC 




JZ 


$ 




OCEE 


210300 




LXI 


H,3 


} POINT TO BANK 


0CF1 


09 




DAD 


B 




0CF2 


7E 




MOV 


A,M 


• GET IT 


0CF3 


32030D 




STA 


BANKNO j 


• SAVE BANK NUMBER 


0CF6 


17 




RAL 






0CF7 


17 




RAL 






0CF8 


17 




RAL 






0CF9 


E618 




AN I 


018H | 


MASK FOR PIO 


OCFB 


F602 




ORI 


MEMSK j 




OCFD 


32040D 




STA 


CURMEM j 


STORE CURRENT BANK MASK 


0D00 


D309 




OUT 


009H j 


SET PIO 


0D02 


C9 




RET 






0D03 


00 


BANKNO: 


DB 


J 


LAST SELECTED MEMORY BA 


0D04 


00 


CURMEM: 


DB 


; 


LAST SELECTED MEMORY BA 



0D05 3EFF 
0D07 32CE0D 
0D0A C9 



0D0B AF 
0D0C 32CE0D 
0D0F C9 



? START CLOCK 
STARTCLOCK : 

MVI A,0FFH 
STA TICKN 
RET 

; STOP CLOCK 

STOPCLOCK: 



XRA A 
STA TICKN 
RET 

EXIT REGION 



WILL CAUSE FLAG #1 TO BE SET 
AT EACH SYSTEM TIME UNIT TICK 



WILL STOP FLAG #1 SETTING AT 
SYSTEM TIME UNIT TICK 
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EXITREGION: 




0D10 3AGF0D 


LDA 


PREEMP 


0D13 B7 


ORA 


A 


0D14 CO 


RNZ 




0D15 FB 


EI 




0D16 C9 


RET 





EI IF NOT PREEMPTED 



0D17 3E04 
0D19 C9 



MAXIMUM CONSOLE NUMBER 



MAXCONSOLE: 
MVI 
RET 



A,NMBCNS 



MP/M 1.0 INTERRUPT HANDLERS 



008E = 


DSPTCH 


EQU 


142 






INT1HND 


• 


; INQ 


PE. 




T20MS: 




• 
9 




0D1A 22C80D 




SHLD 


SVDHL 




0D1D 21220D 




LXI 
JR 


H, TIMERINT 
INTINIT 




0D20+185D 




DB 


018H,INTINIT- 


■$■ 




TIMERINT: 






0D22 3ACE0D 




LDA 


TICKN 




0D25 B7 




ORA 
JRZ 


A 
NOTICKN 




0D26+2807 




DB 


2 8H, NOTICKN - 


-$ 


0D28 0E85 




MVI 


CFLAGST 




0D2A 1E01 




MVI 


E,l 




0D2C CD100B 


NOTICKN 


CALL 


XDOS 




0D2F 219D0D 




LXI 


H,CNTX 




0D32 35 




DCR 
JRNZ 


M 
NOT1SEC 




0D33+2032 




DB 


020H,NOT1SEC- 


-$ 


0D35 3E7D 




MVI 


A f 125 




0D37 2B 




DCX 


H 




0D38 96 




SUB 


M 




0D39 77 




MOV 


M,A 




0D3A 23 




INX 


H 




0D3B 77 




MOV 


M,A 




0D3C 0E85 




MVI 


C,FLAGST 




0D3E 1E02 




MVI 


E,2 




0D40 CD100B 




CALL 


XDOS 




0D43 2AD00D 




LHLD 


FPYTIME 




0D46 7C 




MOV 


A,H 




0D47 B7 




ORA 
JRZ 


A 
NOT1SEC 




0D48+281D 




DB 


028H,NOT1SEC- 


-$ 


0D4A 2D 




DCR 


L 





INTERRUPT 1 HANDLER ENTRY POINT 



. FAKE JR INSTR 



; TEST TICKN, INDICATES 
; DELAYED PROCESS (ES) 

-1 ; FAKE JRZ INST 



; SET FLAG #1 EACH TICK 

; DEC TICK CNTR 

1 ; FAKE JRNZ INS 

. *** TOGGLE COUNT 62 <-> 6 

; *** ACTUAL #/SEC =62.5 



; SET FLAG #2 @ 1 SEC 

;IS FLOPPY TIME CHECK IN EF 



? IF NOT IN EFFECT, FINISH 

■1 ; FAKE JRZ INST 

; SUBTRACT A SECOND 



All Information Presented Here is Proprietary to Digital Research 

148 



MP/M II System Guide 



Appendix E MP/M Banked XIOS 



0D4B 22D00D 

0D4E+2017 
0D50 65 
0D51 22D00D 
0D54 0E85 
0D56 1E06 
0D58 CD100B 
0D5B 3E90 
0D5D 32FC0A 
0D60 2AD20D 
0D63 23 
0D64 22D20D 



0D67 
0D68 
0D6B 
0D6C 
0D6D 
0D70 
0D71 
0D72 
0D75 
0D76 
0D79 
0D7A 



AF 

32CF0D 

CI 

Dl 

2ACA0D 

F9 

Fl 

2ACC0D 

E5 

210D0B 

E5 

2AC80D 



SHLD 

JRNZ 

DB 

MOV 

SHLD 

MVI 

MVI 

CALL 

MVI 

STA 

LHLD 

INX 

SHLD 



NOT1SEC: 



INTDONE : 



XRA 

STA 

POP 

POP 

LHLD 

SPHL 

POP 

LHLD 

PUSH 

LXI 

PUSH 

LHLD 



FPYTIME 

NOT1SEC 

020H,NOT1SEC- 

H,L 

FPYTIME 

C,FLAGST 

E,FPYFLAG 

XDOS 

A,10010000B 

STATUS 

FPYTCNT 

H 

FPYTCNT 



;SAVE FOR NEXT TIME 
;IF NOT TOO LONG, FINISH 
$-1 ; FAKE JRNZ INS 

ZERO OUT INDICATOR 

PREVENT RE-ENTRY OF THIS R 



CAUSE I/O FOR FLOPPY TO CO 
;SHOW ERROR IN FLOPPY I/O 
;COUNT TIMES WD1791 GOES TO 



A 

PREEMP 

B 

D 

SVDSP 

PSW 

SVDRET 

H 

H,PDISP 

H 

SVDHL 



CLEAR PREEMPTED FLAG 



RESTORE STK PTR 



MP/M DISPATCH 
PUT ON STACK FOR RETURN 



THE FOLLOWING DISPATCH CALL WILL FORCE ROUND ROBIN 
SCHEDULING OF PROCESSES EXECUTING AT THE SAME PRIORITY 
EACH 1/3 2ND OF A SECOND, 

NOTE: INTERRUPTS ARE NOT ENABLED UNTIL THE DISPATCHER 
RESUMES THE NEXT PROCESS. THIS PREVENTS INTERRUPT 
OVER- RUN OF THE STACKS WHEN STUCK OR HIGH FREQUENCY 
INTERRUPTS ARE ENCOUNTERED. 



0D7D+ED4D 


RETI 
DB 


0EDH,04DH 


; DISPATCH 

; FAKE RETI INSTRUCTION 


0D7F 
0D82 
0D83 
0D86 


22C60D 
El 

22CC0D 
F5 


INTINIT: 

SHLD 
POP 
SHLD 
PUSH 


;SAVE 
ADRINTHD 
H 

SVDRET 
PSW 


MACHINE STATE FOR INTRPT HNDL 


0D87 
0D8A 
0D8B 


210000 

39 

22CA0D 


LXI 
DAD 
SHLD 


H,0 

SP 

SVDSP 


; SAVE USERS STK PTR 


0D8E 
0D91 
0D92 


31C60D 

D5 

C5 


LXI 

PUSH 

PUSH 


SP,LSTINTSTK 

D 

B 


; LCL STK FOR INTR HNDL 


0D93 
0D95 


3EFF 
32CF0D 


MVI 
STA 


A,0FFH 
PREEMP 


; SET PREEMPTED FLAG 
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0D98 2AC60D 
0D9B E9 



LHLD 
PCHL 



ADRINTHD 



;JUMP TO INTERRUPT HANDLER 



BIOS DATA SEGMENT 



0D9C 3E 
0D9D 3E 

0D9E C7C7C7C7C7 
0DA8 C7C7C7C7C7 
0DB2 C7C7C7C7C7 
ODBC C7C7C7C7C7 

0DC6 0000 
0DC8 0000 
ODCA 0000 
0DCC 0000 
ODCE 00 
ODCF 00 



ODDO 0000 



0DD2 0000 



TOGCNT: DB 
CNTX : DB 
INTSTK: 

DW 

DW 

DW 

DW 

LSTINTSTK: 

ADRINTHD: DW 

SVDHL: DW 

SVDSP : DW 

SVDRET: DW 

TICKN: DB 

PREEMP: DB 



if 



FPYTIME : 



DW 



FPYTCNT : 



DW 
endif 



62 ; TOGGLE COUNTER 62 <-> 63 
62 ; TICK CNTR TO 1 SEC 

; LOCAL INTRPT STK 
0C7C7H , 0C7C7H , 0C7C7H , 0C7C7H , 0C7C7H 
0C7C7H , 0C7C7H , 0C7C7H , 0C7C7H , 0C7C7H 
0C7C7H , 0C7C7H , 0C7C7H , 0C7C7H , 0C7C7H 
0C7C7H , 0C7C7H , 0C7C7H , 0C7C7H , 0C7C7H 










mpm20 







INTERRUPT HANDLER ADDRESS 
SAVED REGS HL DURING INT HNDL 
SAVED SP DURING INT HNDL 
SAVED RETURN DURING INT HNDL 
TICKING BOOLEAN, TRUE = DELAYED 
PREEMPTED BOOLEAN 



PAGE 



0DD4 


= 


0DD4 


1A00 


0DD6 


03 


0DD7 


07 


0DD8 


00 


0DD9 


F200 


0DDB 


3F00 


ODDD 


CO 


0DDE 


00 


ODDF 


1000 


0DE1 


0200 


0DE3 


= 


0DE3 


3400 


0DE5 


04 



DPBO 



DPB1 



THESE ARE THE DISK TYPE DEFINITION BLOCKS 

EACH OF WHICH CORRESPONDS TO A PARTICULAR MODE, 



EQU 


$ 


DW 


26 


DB 


3 


DB 


7 


DB 





DW 


242 


DW 


63 


DB 


192 


DB 





DW 


16 


DW 


2 


EQU 


""'$ 


DW 


52 


DB 


4 



VERSION 2.0, IBM SINGLE DE 

SECTORS PER TRACK 

BLOCK SHIFT 

BLOCK SHIFT MASK 

EXTENT MASK 

DISK SIZE MINUS 1 

DIRECTORY MAX 

ALLOC 

ALLOC 1 

CHECK AREA SIZE 

OFFSET TO START TRACK 

; VERSION 2.0, IBM DOUBLE DE 
j SECTORS PER TRACK 
; BLOCK SHIFT 
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0DE6 


OF 


0DE7 


01 


0DE8 


F200 


ODEA 


7F00 


ODEC 


CO 


ODED 


00 


ODEE 


2000 


ODFO 


0200 


0DF2 


s 


0DF2 


3000 


0DF4 


04 


0DF5 


OF 


0DF6 


00 


0DF7 


EOOO 


0DF9 


5F00 


ODFB 


CO 


ODFC 


00 


ODFD 


1800 


ODFF 


0200 



0E01+= 

0E01+8000 

0E03+07 

0E04+7F 

0E05+07 

0E06+FF01 

0E08+FF01 

0E0A+80 

OEOB+00 

0E0C+0080 

OEOE+0100 

0000+= 



0E10+= 

0E10+8000 

0E12+07 

0E13+7F 

0E14+07 

0E15+FF01 

0E17+FF01 

0E19+80 

0E1A+00 

0E1B+0080 

0E1D+0102 

0000+= 



OElF+= 
0E1F+8000 



DPB2 



DPB3 
DPB3 



XLT3 

DPB4 
DPB4 



XLT4 

DPB5 
DPB5 



DB 
DB 
DW 
DW 
DB 
DB 
DW 
DW 

EQU 

DW 

DB 

DB 

DB 

DW 

DW 

DB 

DB 

DW 

DW 

IF 



15 

1 

242 

127 

192 



32 

2 

$ 

48 

4 

15 



224 

95 

192 



24 

2 

HARDSK 



BLOCK SHIFT MASK 

EXTENT MASK 

DISK SIZE MINUS 1 

DIRECTORY MAX 

ALLOC 

ALLOC 1 

CHECK AREA SIZE 

OFFSET TO START TRACK 

VERSION 1.4 ALTOS DOUBLE D 

SECTORS PER TRACK 

BLOCK SHIFT 

BLOCK SHIFT MASK 

EXTENT MASK (1.4 COMPATABI 

DISK SIZE MINUS 1 

DIRECTORY MAX 

ALLOC 

ALLOC 1 

CHECK AREA SIZE 

OFFSET TO START TRACK 



if mpm20 

DISKDEF 3, 0,127,, 16384, 512, 512, 0,1,,0 



EQU $ 

DW 128 

DB 7 

DB 127 

DB 7 

DW 511 

DW 511 

DB 128 

DB 

DW 8000H+CKSZ 

DW 1 

EQU 



DISK PARM BLOCK 

SEC PER TRACK 

BLOCK SHIFT 

BLOCK MASK 

EXTNT MASK 

DISK SIZE-1 

DIRECTORY MAX 

ALLOC 

ALLOC 1 

; PERMANENT DISK WIT 
; OFFSET 
;NO XLATE TABLE 



DISKDEF 4, 0,127,, 16384, 512, 512,0, 513,, 



EQU $ 

DW 128 

DB 7 

DB 127 

DB 7 

DW 511 

DW 511 

DB 128 

DB 

DW 8000H+CKSZ 

DW 513 

EQU 



DISK PARM BLOCK 

SEC PER TRACK 

BLOCK SHIFT 

BLOCK MASK 

EXTNT MASK 

DISK SIZE-1 

DIRECTORY MAX 

ALLOC 

ALLOC 1 

; PERMANENT DISK WIT 
; OFFSET 
;NO XLATE TABLE 



DISKDEF 5, 0,127,, 16384, 512, 512,0, 1025,, 
EQU $ ;DISK PARM BLOCK 

DW 128 ;SEC PER TRACK 
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0E21+07 




DB 


7 


; BLOCK SHIFT 


0E22+7F 




DB 


127 


; BLOCK MASK 


0E23+07 




DB 


7 


;EXTNT MASK 


0E24+FF01 




DW 


511 


;DISK SIZE-1 


0E26+FF01 




DW 


511 


; DIRECTORY MAX 


0E28+80 




DB 


128 


; ALLOC 


0E29+00 




DB 





; ALLOC 1 


0E2A+0080 




DW 


8000H+CKSZ 


; PERMANENT DISK WIT 


0E2C+0104 




DW 


1025 


; OFFSET 


0000+= 


XLT5 


EQU 





;NO XLATE TABLE 




DPB6: 


DISKDEF 


6,0,127, ,16384 


r 288, 512,0, 513, ,0 


0E2E+= 


DPB6 


EQU 


$ 


;DISK PARM BLOCK 


0E2E+8000 




DW 


128 


;SEC PER TRACK 


0E30+07 




DB 


7 


; BLOCK SHIFT 


0E31+7F 




DB 


127 


; BLOCK MASK 


0E32+07 




DB 


7 


;EXTNT MASK 


0E33+1F01 




DW 


287 


;DISK SIZE-1 


0E35+FF01 




DW 


511 


; DIRECTORY MAX 


0E37+80 




DB 


128 


; ALLOC 


0E38+00 




DB 





; ALLOC 1 


0E39+0080 




DW 


8000H+CKSZ 


; PERMANENT DISK WIT 


0E3B+0102 




DW 


513 


; OFFSET 


0000+= 


XLT6 


EQU 
else 





;NO XLATE TABLE 




DPB3: 


DISKDEF 


3,0,127, ,16384, 


,512,512,0,1 




DPB4: 


DISKDEF 


4, 0,127, ,,16384, 


, 512, 512, 0,513 




DPB5: 


DISKDEF 


5,0,127, ,16384, 


,512,512,0,1025 




DPB6: 


DISKDEF 
endif 


6,0,127, ,16384, 


288,512,0,513 



ENDIF 



DPB7 



if 


mdisk 


EQU 


$ 


DW 


24 


DB 


3 


DB 


7 


DB 





DW 


142 


DW 


63 


DB 


0C0H 


DB 





DW 





DW 





endif 





VIRTUAL DISK 

SECTORS PER TRACK 

BLOCK SHIFT 

BLOCK SHIFT MASK 

EXTENT MASK 

DISK SIZE MINUS 1 

DIRECTORY MAX 

ALLOC 

ALLOC 1 

CHECK AREA SIZE 

OFFSET TO START TRACK 



page 



MOVE SUBROUTINE 



All Information Presented Here is Proprietary to Digital Research 

152 



MP/M II System Guide 



Appendix E MP/M Banked XIOS 



RWMOVE: 



0E3D D5 
0E3E E5 
0E3F CD070B 
0E42 El 
0E43 Dl 
0E44 018000 

0E47+EDB0 
0E49 CD0A0B 



0E4C 3AF90A 

0E4F E601 
0E51+280D 



if 

push 

push 

call 

pop 

pop 

lxi 

LDIR 

DB 

call 



hardsk 

d 

h 

swtuser 

h 

d 

b,128 

0EDH,0B0H 
swtsys 



; switch in user bank 



MOVE DATA TO/FROM BUFFER 

FAKE LDIR INSTRUCTION 

switch system back in 



DATA HAS BEEN MOVED TO/FROM HOST BUFFER 



; WRITE TYPE ?? 



LDA 


WRTYPE 


if 


mpm20 


ani 


WRDIR 


JRZ 


RWEND 


DB 


028H,RWEND-$-l 


else 




CPI 


WRDIR 


JRNZ 


RWEND 


endif 





;TO DIRECTORY ?? 

;NO, JUST END UP HERE 

._ FAKE JRZ INSTRUCTION 

;TO DIRECTORY ?? 

;NO, JUST END UP HERE 



CLEAR HOST BUFFER FOR DIRECTORY WRITE 



0E53 3AF60A 
0E56 B7 

0E57+2007 
0E59 AF 
0E5A 32F00A 
0E5D CD6D04 



0E60 3AF60A 
0E63 B7 
0E64 C8 
0E65 21EA0A 
0E68 36FF 

0E6A C9 



0E6B 2AAF00 
0E6E E5 
0E6F CD070B 
0E72 El 
0E73 111D13 
0E76 018000 



RWEND: 



MVDTB 



LDA 


ERFLAG 


ORA 


A 


JRNZ 


RWEND 


DB 


020H,RWEND-$-l 


XRA 


A 


STA 


HSTWRT 


CALL 


WRITEHST 


LDA 


ERFLAG 


ORA 


A 


RZ 




LXI 


H,HSTDSK 


MVI 


M,0FFH 


ENDIF 




RET 




LHLD 


DMAADR 


push 


h 


call 


swtuser ;switc 


pop 


h ; ca 


LXI 


D,FPYBUF 


LXI 


B,128 



CHECK PRIOR TO DIR ACTIVIT 
ERRORS ?? 

SKIP IF SO 

FAKE JRNZ INSTRUCTION 

ZERO TO ACCUMULATOR 
BUFFER WRITTEN 



;IF ERRORS, RESET SO NO MAT 
;NONE, JUST RETURN 

•CANT POSSIBLY MATCH, MUST 



; MOVE DATA TO FLOPPY BUFFE 



cannot access non-common BNKXIO 
; 128 BYTES 
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0E79+EDB0 




LDIR 
DB 


0EDH,0B0H 




. FAKE LDIR INSTRUCTION 


0E7B C30A0B 




jmp 
RET 


swtsys 




} switch system back in 


0E7E F5 


MVDFB: 


PUSH 


PSW 




-, MOVE DATA FROM FLOPPY BUF 


0E7F 3AFA0A 




LDA 


CMD 






0E82 E620 




ANI 


20H 




} CHECK FOR READ 






JRNZ 


MVDFX 




-, NO - BYPAS MOVE 


0E84+2013 




DB 


020H,MVDFX- 


-$-1 


. FAKE JRNZ INSTRUCTION 


0E86 2AAF00 




LHLD 


DMAADR 






0E89 E5 




push 


h 






0E8A CD070B 




call 


swtuser ; switch in user bank, 


0E8D Dl 




pop 


d 


cannot access non-common BNKXIO 


0E8E 211D13 




LXI 


H,FPYBUF 






0E91 018000 




LXI 
LDIR 


B,128 




• 128 BYTES 


0E94+EDB0 




DB 


0EDH,0B0H 




FAKE LDIR INSTRUCTION 


0E96 CD0A0B 




call 


swtsys 




'switch system back in 


0E99 Fl 


MVDFX: 


POP 


PSW 






0E9A C9 




RET 
IF 


HARDSK 






0E9B 




DS 


1 




;MUST PRECEDE HSTBU 


0E9C 


HSTBUF : 


DS 


1024 




;HOST BUFFER AREA 


129C 




DS 
ENDIF 


1 




;MUST FOLLOW HSTBUF 



PAGE 



129D = 
131D = 



129D 225E13 
12A0 69 
12A1 2600 
12A3 29 
12A4 29 
12A5 29 



INITIALIZE MP/M: REAL TIME CLOCK & DISKS 



if 
dirbuf equ 
fpybuf equ 

endif 

SYSTEMINIT: 
C 

DE = 
HL ■ 

SHLD 

MOV 

MVI 

DAD 

DAD 

DAD 



mpm20 

$ 
dirbuf+128 



BREAKPOINT RESTART NUMBER 
BREAKPOINT RESTART HANDLER ADDRESS 
DIRECT XIOS INTERCEPT JUMP TABLE ADDRESS 

SVDJT 

L,C 

H,0 

H 

H 

H ;HL = RESTART JUMP ADDRESS 
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12A6 226013 



SHLD 



SVDBPA 



12A9 2A130B 
12AC 2E0F 
12AE 46 

12AF 23 
12B0 23 
12B1 23 
12B2 23 
12B3 7E 
12B4 B7 
12B5 C2BF12 
12B8 05 
12B9 C2AF12 
12BC C3CE12 

12BF 3E1A 
12C1 CD4813 
12C4 3E12 
12C6 CD4813 
12C9 3E0A 
12CB CD4813 



12CE 3E02 
12D0 CD4813 

12D3 213717 
12D6 117C00 



if not mdisk 
lhld sysdat 
mvi 1,15 
mov b r m 
test$bank$setup$loop: 
inx 
inx 
inx 
inx 
mov 
or a 



;hl = .nmbmemsegs 
;b = nmbmemsegs 



hi = .memseg (i) .bank 



jnz 
dcr 
jnz 

bank$setup: 

MVI 

CALL 

MVI 

CALL 

MVI 

CALL 
after $bank$ setup: 

else 

mvi 

out 

lxi 

mvi 

cmp 

inx 

jrnz 

cmp 

jrz 
fill: 

mov 

dcx 

mov 

lxi 
lxi 
lxi 
mvi 
out 
mvi 
ldir 
dontf ill: 

endif 

MVI 

CALL 



h 

h 

h 

h 

a,m 

a 

bank$setup 

b 

test$bank$setup$loop 

after $bank$ setup 



A,01AH 
STMVTR 
A,012H 
STMVTR 
A,00AH 
STMVTR 



a, lah 

09h 

h,0bffeh 

a,0e5h 

m 

h 

fill 

m 

dontfill 



SELECT BANK 3 
SET UP VECTORS 
SELECT BANK 2 
SET UP VECTORS 
SELECT BANK 1 
SET UP VECTORS 



bank 3 select for directo 



m,a 

h 

m,a 

b,07ffh 
h,0 

d,l 
a,0ah 
09h 
m,0e5h 



A,002H 
STMVTR 



;set directory initialized 



; first 2 k of bank one gets 



select bank 1 



SELECT BANK 
SET UP VECTORS 



lxi 
LXI 
LXI 



h,ldrbiosbase+density$mask$of fset 

H,1737H ; MOVE PARAMETERS CHANGED B 

D,SEL0 ; THE SETUP PROGRAM 
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12D9 010400 

12DC+EDB0 
12DE 118800 
12E1 010400 

12E4+EDB0 
12E6 2ABB17 

12E9 22B600 
12EC 3AB600 
12EP E602 

12F1+2814 
12F3 212C0B 
12F6 221000 
12F9 211F0B 
12FC 22D50C 
12FF 3E03 
1301 D313 
1303 3E0F 
1305 D313 



LXI B,4 

LDIR 

DB 0EDH,0B0H 

LXI D,MODE 

LXI B,4 

LDIR 

DB 0EDH,0B0H 

lhld ldrbiosbase+mi 

LHLD 17BBH 

SHLD MPARMS 

LDA MPARMS 

ANI 2 

JRZ PRTOK 

DB 028H,PRTOK-$-l 

LXI H,CLIST 

SHLD WBOTE+13 

LXI H,CNSTAT 

SHLD DEVTBL 

MVI A,003H 

OUT 013H 

MVI A,00FH 

OUT 013H 



; 4 SELECT MASKS 

; — — FAKE LDIR INSTRUCTION 

• - 

• 4 MODE BYTES 

. FAKE LDIR INSTRUCTION 

sc$params$offset 

; GET MISC. PARAMETERS 

; NOW TEST FOR CENTRONICS P 

• 

; NO - LEAVE SERIAL 
; FAKE JRZ INSTRUCTION 

■ • 

; CHANGE PRINTER ROUTINE 
; .AND STATUS CHECK 

• 

; INITIALIZE PARALLEL PORT 



1307 010300 



PRTOK: 



MODESET: 



130A 
130D 
1310 
1311 
1312 
1313 
1314 
1317 
1318 
1319 
131C 



CD2F02 

218800 

09 

C5 

41 

4E 

CDF807 

CI 

0D 

F20A13 

CDD007 



131F 018000 
1322 CD5502 

1325 E5 



1326 2A130B 
1329 2E07 
132B 7E 



132C El 
132D ED47 



LXI 

CALL 

LXI 

DAD 

PUSH 

MOV 

MOV 

CALL 

POP 

DCR 

JP 

CALL 

LXI 
CALL 

push 

if 

lhld 

mvi 

mov 

else 

lxi 

mov 

end if 

pop 
DB 



B,003H 

SELSDP 

H,MODE 

B 

B 

B f C 

C,M 

XETMOD 

B 

C 

MODESET 

SDCONF 

B,80H 
SETDMA 



mpm20 
sysdat 
1,7 
a,m 

h , INTERUPT 
a,h 



h 
0EDH,047H 



SET THE MODE FOR DRIVES IN 

SELECT DRIVE FOR MODESET 

POINT TO CORRECT MODE BYTE 
SAVE COUNT OF DRIVES 
B = DRIVE # 

SET MODE 

END OF LIST YET ?? 

SET MODE FOR ALL DRIVES 

SET DISK CONFIGURATION 

;SET DMA ADDRESS 



. FA ke STAI INSTRUCTION 
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132F 


3E60 




MVI 


A,60H 




-, SET VECTOR FOR CTC 


1331 


D330 




OUT 


30H 




} CTC CHANNEL 


1333 


3EA7 




MVI 


A,0A7H 




; RESET / LOAD TIME CONST 


1335 


D333 




OUT 


33H 




} CHANNEL 3 


1337 


3EFA 




MVI 


A, 250 




} TIME CONSTANT 


1339 


D333 




OUT 
IF 


033H 
HARDSK 






133B 


AF 




XRA 


A 


', 


rZERO ACCUMULATOR 


13 3C 


32EF0A 




STA 


HSTACT 




?SET HOST BUFFER INACTIVE 


133F 


32F10A 




STA 


UNACNT 




;SET UNALLOCATED COUNT TO Z 


1342 


219B0E 




LXI 


H,HSTBUF-1 


1 SETUP WRITE CONTROL BYTE F 


1345 


360D 




MVI 
END IF 


M,00DH 




» 

r 


1347 


C9 


STMVTR: 


RET 




i 


» 
r 


1348 


D309 




OUT 


MEMPORT 






13 4A 


3EC3 




MVI 


A,0C3H 




• SET VECTORS FOR BDOS 


134C 


320000 




STA 







JMP INSTRUCTION 


134F 


2A5E13 




LHLD 


SVDJT 






1352 


220100 




SHLD 


1 






1355 


2A6013 




LHLD 


SVDBPA 






1358 


77 




MOV 


M r A 






1359 


23 




INX 


H 






135A 


73 




MOV 


M,E 






135B 


23 




INX 


H 






135C 


72 




MOV 


M,D 






135D 


C9 




RET 




m 
1 




135E 




SVD JT : 


DS 


2 


; SAVED DIRECT JUMP TABLE ADDRESS 


1360 




SVDBPA: 


DS 


2 


; SAVED BREAK POINT ADDRESS 








if 


mpm20 






1362 


= 


xiosend 


equ 


$ 






139D 


= 


fdbuf 


equ 


(dirbuf- 


•base) +256 




139D 






org fdbuf+((xios 


jend-base) /fdbuf ) * ( (xiosend-base) -f d 


139D 


00 




db 










endif 



139E 



END 



070F 


ADDERRORS 


0DC6 


ADRINTHD 


12CE 


AFTERBANKS 


03DA 


ALLOC 


081E 


ALV0 


085E 


ALV1 


089E 


ALV2 


08DE 


ALV3 


091E 


ALV4 


095E 


ALV5 


099E 


ALV6 


09DE 


ALV7 


0A1E 


ALV8 


0A5E 


ALV9 


0A9E 


ALVA 


0AC2 


ALVB 


0708 


BADIO 


0D03 


BANKNO 


12BF 


BANKSETUP 


0000 


BASE 


081E 


BEGDAT 


4000 


BLKSIZ 


067B 


CHECKIT 


06AE 


CHECKSTAT 


0220 


CHKHRD 


06BC 


CHKS0 


06C7 


CHKS1 


06CD 


CHKS2 
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06E6 


CHKS3 


06F7 


CHKS4 


03A1 


CHKUNA 


0B2C 


CLIST 


0B3B 


CLIST1 


OAFA 


CMD 


0B1F 


CNSTAT 


0D9D 


CNTX 


0B15 


COLDSTART 


0B04 


COMMONBASE 


0B84 


CON IN 


0B8F 


CONOUT 


0B79 


CONST 


0080 


CPMSPT 


083E 


CSVO 


087E 


CSV1 


08BE 


CSV2 


08FE 


CSV3 


095E 


CSV4 


099E 


CSV5 


09DE 


CSV6 


0A1E 


CSV7 


0A5E 


CSV8 


0A9E 


CSV9 


0AC2 


CSVA 


0AE6 


CSVB 


0D04 


CURMEM 


001C 


DATAO 


002C 


DATA1 


002E 


DATA2 


002A 


DATA 3 


00B4 


DBLKAD 


052E 


DBLLOW 


0530 


DBLSAVE 


0519 


DBLUPDATE 


0782 


DELI 


0784 


DEL 2 


0782 


DELAY 


0037 


DENSITYMAS 


0CD2 


DEVOK 


0CD5 


DEVTBL 


129D 


DIRBUF 


00 AC 


DISKNO 


FFFF 


DMA 


00AF 


DMAADR 


OOBE 


DMALEN 


OOBA 


DMAS1 


00C6 


DMAS2F 


OOCO 


DMAS2H 


OOCA 


DMAS 3 


OOCE 


DMAS3F 


OOBC 


DMASA 


ODD 4 


DPBO 


0DE3 


DPB1 


0DF2 


DPB2 


0E01 


DPB3 


0E10 


DPB4 


0E1F 


DPB5 


0E2E 


DPB6 


00D1 


DPBASE 


00D1 


DPEO 


00E1 


DPE1 


00F1 


DPE2 


0101 


DPE3 


0111 


DPE4 


0121 


DPE5 


0131 


DPE6 


0141 


DPE7 


0151 


DPE8 


0161 


DPE9 


0171 


DPEA 


0181 


DPEB 


00B2 


DPEPTR 


0790 


DSCNO 


0552 


DSKSEL 


008E 


DSPTCH 


0246 


DTBLT 


OAF 6 


ERFLAG 


0D10 


EXITREGION 


0000 


FALSE 


139D 


FDBUF 


0B50 


FDINTH 


041C 


FILLHST 


0763 


FINTFIX 


0085 


FLAGST 


0084 


FLAGWT 


0B47 


FLOPPYINT 


0687 


FLOPPYIO 


065C 


FLOPPYSEEK 


0661 


FPS1 


131D 


FPYBUF 


0006 


FPYFLAG 


ODD 2 


FPYTCNT 


ODDO 


FPYTIME 


073A 


FPYWAIT 


0670 


FSECSET 


06AA 


FWT1 


0B5E 


HARDINT 


FFFF 


HARDSK 


0005 


HDFLAG 


0B67 


HDINTH 


0B71 


HDSTFLG 


OOAE 


HEADNO 


031A 


HOME 


0337 


HOME1 


0340 


HOME1A 


0357 


HOME 2 


0343 


HOMEHARD 


02F9 


HOMEIT 


0321 


HOMESOFT 


0B03 


HOMETOGGLE 


048F 


HRWO 


0499 


HRW1 


04C4 


HRW2 


04CD 


HRW3 


04D9 


HRW4 


04E1 


HRW5 


04E6 


HRW6 


0504 


HRW7 


OAEF 


HSTACT 


0008 


HSTBLK 


0E9C 


HSTBUF 


OAEA 


HSTDSK 


OAED 


HSTSEC 


0400 


HSTSIZ 


0010 


HSTSPT 


OAEB 


HSTTRK 


OAFO 


HSTWRT 


00B8 


HTK1 


00B9 


HTK2 


07F8 


INITEND 


0D1A 


INT1HND 


0D67 


INTDONE 


005E 


INTERUPT 


0721 


INTFIX 


0D7F 


INTINIT 


0D9E 


INTSTK 


0051 


LAST 


062D 


LDH1 


1700 


LDRBIOSBAS 


0CA9 


LIST 


0CB8 


LIST1 


061E 


LOADHEAD 


001E 


LPTPRTO 


0028 


LPTPRT1 


001F 


LPTSTSO 


0029 


LPTSTS1 


0DC6 


LSTINTSTK 


OAFB 


MASK 


0439 


MATCH 


0D17 


MAXCONSOLE 


OOOC 


MAXDSK 


0000 


MDISK 


0009 


MEMPORT 


0002 


MEMSK 


OOBB 


MISCPARAMS 


0088 


MODE 


130A 


MODESET 


0191 


MODLO 


019D 


MODL1 


01A9 


MODL2 


00B6 


MP ARMS 


FFFF 


MPM20 


0E7E 


MVDFB 


0E99 


MVDFX 


0E6B 


MVDTB 


0AE6 


NEWDSK 


OAEE 


NEWHST 


0AE9 


NEWSEC 


0AE7 


NEWTRK 


0461 


NEWTRKCMP 


0004 


NMBCNS 


0009 


NMBDEV 


075F 


NOFPYRST 


0415 


NOMATCH 


03D4 


NOOVF 


0D67 


NOT1SEC 


0D2F 


NOTICKN 


0B1C 


NULL INT 


00A0 


PCNT 


OBOD 


PDISP 


0005 


PLCIO 


0006 


PLCI1 


0007 


PLCI2 


0008 


PLC 1 3 


0001 


PLCOO 


0002 


PLCOl 


0003 


PLC02 


0004 


PLC03 


0000 


PLLPT 


05D4 


PNTFN 


05D1 


PNTH2 


05B3 


POINT 


OBAD 


POLCIO 


OBEC 


POLCI1 


0C2B 


POLCI2 


0C6A 


POLCI3 


OBDD 


POLCOO 


0C1C 


POLCOl 


0C5B 


POLC02 


0C9A 


POLC03 


0083 


POLL 


OCCB 


POLLDEVICE 


OCBC 


POLLPT 


ODCF 


PREEMP 


0B01 


PRETRIES 


1307 


PRTOK 


0BB8 


PTOIN 


0BC5 


PT0IN1 


OBCA 


PTOOUT 


0BD9 


PT0OUT1 


OBAD 


PTOST 


0BF7 


PT1IN 


0C04 


PT1IN1 


0C09 


PT10UT 


0C18 


PT10UT1 


OBEC 


PT1ST 


0C36 


PT2IN 


0C43 


PT2IN1 


0C48 


PT20UT 



All Information Presented Here is Proprietary to Digital Research 

158 





MP/M II System Guide 




Appendix E 


MP/M Ban 


0C57 


PT20UT1 


0C2B 


PT2ST 


0C75 


PT3IN 


0C82 


PT3IN1 


0C87 


PT30UT 


0C96 


PT30UT1 


0C6A 


PT3ST 


0B9A 


PTBLJMP 


028B 


READ 


036B 


READHARD 


047F 


READHST 


OAF 8 


READOP 


05E4 


READSOFT 


0308 


REALDISK 


FFFF 


RELOC 


0643 


REMOVELD 


02EE 


RETMOD 


0AF7 


RSFLAG 


0B1A 


RTNEMPTY 


0E60 


RWEND 


0E3D 


RWMOVE 


03E2 


RWOPER 


OAFD 


SAVE1 


07D0 


SDCONF 


07DE 


SDDBL 


07F1 


SDL1 


07F3 


SDOK 


0007 


SECMSK 


0003 


SECSHF 


00B1 


SECTNO 


05D6 


SECTRAN 


007C 


SELO 


0203 


SELDSK 


0242 


SELERR 


059B 


SELHARD 


0CE9 


SELMEMORY 


022F 


SELSDP 


0556 


SELSOFT 


0278 


SETDEN 


0255 


SETDMA 


0211 


SETDSK 


0544 


SETDVD 


0540 


SETH14 


0532 


SETHED 


02A1 


SETMOD 


0273 


SETSEC 


02C7 


SETSEL 


026D 


SETTRK 


0547 


SHD1 


05A1 


SLH1 


055D 


SLS1 


056B 


SLS2 


0575 


SLS3 


0584 


SLS4 


0595 


SLSERR 


02E3 


SMERR 


0601 


SRW1 


0615 


SRW2 


0D05 


STARTCLOCK 


OAFC 


STATUS 


1348 


STMVTR 


ODOB 


STOPCLOCK 


05DB 


STRN1 


05E2 


STRN2 


001D 


STSO 


002D 


STS1 


002F 


STS2 


002B 


STS3 


1360 


SVDBPA 


0DC8 


SVDHL 


135E 


SVDJT 


ODCC 


SVDRET 


ODCA 


SVDSP 


OBOA 


SWTSYS 


0B07 


SWTUSER 


0B13 


SYSDAT 


129D 


SYSTEMINIT 


0D1A 


T20MS 


0BA2 


TBLJMP 


0094 


TCNT 


12AF 


TESTBANKSE 


ODCE 


TICKN 


0D22 


TIMERINT 


0D9C 


TOGCNT 


00 AD 


TRAKNO 


0B02 


TRETRIES 


0070 


TRKO 


064A 


TRKTST 


FFFF 


TRUE 


0AF1 


UNACNT 


OAF 2 


UNADSK 


OAF 5 


UNASEC 


OAF 3 


UNATRK 


0717 


WAITO 


0B15 


WARMSTART 


0003 


WBOTE 


0000 


WRALL 


0001 


WRDIR 


0296 


WRITE 


037E 


WRITEHARD 


046D 


WRITEHST 


05F2 


WRITESOFT 


OAF 9 


WRTYPE 


0002 


WRUAL 


0B10 


XDOS 


07F8 


XETMOD 


0801 


XETSEL 


1362 


XIOSEND 


01B5 


XLTO 


01CF 


XLT1 


01CF 


XLT2 


0000 


XLT3 


0000 


XLT4 


0000 


XLT5 


0000 


XLT6 







All Information Presented Here is Proprietary to Digital Research 

159 



Index 



ALl field, 27 

ALV, 25 

attribute byte, 56 



B 



bank byte, 57 
bank-switched memory, 55 
banked resident system 

process, 49 
Basic Disk Operating System 

(BDOS) , 15, 48 
BIOS, 15 

BIOS devices, 16 
BIOS disk definition, 29 
BIOS Disk Definition Tables, 

24 
BIOS entry point, 15 
BIOS jump table, 16 
BIOS subroutines, 15, 17, 19, 

20, 22, 23 
BIOS WRITE entry point, 36 
BLM field, 27 
BLM values, 27 
blocking and deblocking, 36 
BLS, 28 

BNKBDOS, 47, 48 
BNKBDOS.SPR, 49 
BNKXDOS, 47 
BNKXIOS, 1, 3 
BNKXIOS.SPR, 48 
BOOT, 12 

booting MP/M II, 6 
bootstrap operation, 13 
breakpoint, 6 

breakpoint restart number, 53 
BSH field, 27 
BSH values, 27 



character I/O, 15, 16 

CKS field, 27 

cks parameter, 31 

CKS value, 29 

cold start loader, 6, 7 

common memory base page, 55 

commonbase , 17 



COMMONBASE subroutine, 33, 37 

CONIN, 17 

CONOUT, 18 

consoles, 16 

CONST, 17 

copyright, 11 

CSV, 25 

custom generation of an MP/M 

II boot, 8 
custom resident system 

processes, 49 
customized XIOS, 47 



day file logging, 55 

DDT, 2, 4, 7, 47 

debugging a resident system 

process, 4 
debugging an XIOS, 4, 5, 6 
default entry values, 52 
delay list, 44 
dir parameter, 31 
DIRBUP, 25 
directory check information, 

29 
directory entries, 28 

disk I/O, 15, 16 

disk organization, 12, 13 

Disk Parameter Block (DPB) , 

26, 29 
Disk Parameter Headers (DPHs) , 

24, 25, 32 
Disk Parameter Table Format, 

24 
DISKDEF, 24, 29, 30 
disks, 16 
dks parameter, 31 
DMA address, 16 
dn parameter, 31 
DPB, 25 
DPBASE, 25 

DPH labels, 32 
DRM, 28 
DRM field, 27 
DSM field, 27 



E 



END statement, 30 
ENDEF macro, 30, 32 
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execution address, 5, 7, 11 

EXITREGION, 41 

EXM field, 27 

EXM values, 28 

Extended Input/Output System 

(XIOS) ,39 
external procedure access 

code, 34 
external procedure entry 

points, 33 



Flag Set, 44 

flags, 43 

fsc parameter, 31 



logical drives, 30 
lsc parameter, 31 



MAC, 29 

macro statements, 29 
MAXCONSOLE, 42 
memory map, 5, 56 
memory segment table, 
MP/M II Boot, 7 
MP/M II nucleus, 49 
MPM.SYS, 47 
MPM.SYS file, 11 
MPMLDR, 2, 6 
MPMLDR display, 58 



56 



GENSYS, 51, 57 
GETSYS, 6, 8, 9 

H 

header block, 32 
HOME, 18 



IDLE process, 43 
Intel MDS-800, 7, 12 
interrupt service routines, 43 
interrupts, 3 



OFF field, 27, 29 
ofs parameter, 31 
one second flag, 44 



page address, 11 
page relocatable files, 49 
PDISP entry point, 35, 44 
POLLDEVICE, 40 
prm parameter, 31 
process termination, 15 
PUNCH, 18 
PUTSYS, 6, 8, 10 



R 



jump addresses, 15 
jump instructions, 15 
jump vector, 15, 33 



kl6 parameter, 31 
L 

LDRBIOS, 1, 2, 3 
licensing agreement, 11 
LIST, 18 
list devices, 16 
LISTST, 23 
load address, 7 
loading MPM.SYS, 11 
locked records, 54 
logical devices, 15 



READ, 21 

READER, 18 

real time, 44 

RESBDOS, 47, 48 

RESBDOS.SPR, 48 

resident system process, 47, 

49, 56 
restart number, 4 
RESXIOS, 1, 3 
RESXIOS.SPR, 48 
RET instruction, 15 
RETI instruction, 44 
RMAC, 29 



sector allocation, 12 
SECTRAN, 23 

SEKDSK entry point, 36 
SELDSK, 2, 16, 19, 25 
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SELMEMORY, 40 

SETDMA, 20 

SETSEC, 20 

SETTRK, 20 

SID, 2, 4, 7, 47 

skew factor, 23 

skew factor parameter, 32 

skf parameter, 31 

SPT field, 27 

STARTCLOCK, 40 

STAT, 33 

STOPCLOCK, 41 

SUBMIT, 54 

subroutine, 1 

SWTSYS, 22 

SWTSYS entry point, 35 

SWTUSER, 22 

SWTUSER entry point, 35 

SYSDAT entry, 35 

SYSDAT page, 11 

SYSGEN, 6, 7, 8 

system data page, 35, 47, 56 

system tick, 44, 45 

SYSTEMINIT, 42 



XIOS jump vector, 39 
XLT, 25 



Z80 CPU, 54 



temporary file drive, 54 
Terminal Message Processes 

(TMPs) , 53 
time bases, 44 
TMP, 47 
top page of operating system, 

53 
trademark, 11 
translation table, 32 
translation vectors, 26 

U 

user memory segments, 55 
W 

WBOOT, 17 
WRITE, 22 
WRITESEC subroutines, 9 



XDOS, 15, 47, 53 

XDOS entry point, 35 

XDOS.SPR, 49 

XIOS, 1, 3, 15, 48 

XIOS entry points, 15, 39 
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